大神来看看我理解的对不对
程序代码:
Dim Conn As New ADODB.Connection'定义conn为新的ADODB连接 Dim Rs As New ADODB.Recordset'定义rs为新的ADODB数据容器 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" 'conn的连接方式和连接目标 Dim UserName As String Dim Password As String UserName = text1.text Password = text2.text sql = "Select * From 表1 where User='" & UserName & "'" '查询表1里表头为user的所有数据的值为text1.text Rs.Open sql, Conn, 1, 3 '静态方式打开数据库并将user的所有数据放到rs里 If Rs.EOF Then '如果指针到记录集最后 MsgBox "没有找到此用户"