Private Sub Command1_Click()\'首先引用MicrosoftActivexDataObjects2.xLibraryDim objcon As New ADODB.ConnectionDim objrs As New ADODB.RecordsetDim strConn As StringstrConn = \"Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=本机IP地址(192.168.1.136)\"objcon.Open strConn\'strConn