大神来看看我理解的对不对

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 "没有找到此用户"