VB 读取ACCESS数据库问题？将access某个字段的数据读取到textbox里面，要注释好！ 回答好，我追分

我的数据库表名是ID，三个字段：
id uid password
1 256 652
2 456 789
... .... ....
当我的text1是id时，，按下command1，，text2.text等于uid，
，text3.text等于password，，以此类推，，
注释多点，我笨。回答好，，我追分

假设数据库名为aa。mdb
Dim adocn As New ADODB.Connection

Private Sub Command1_Click()
If Text1.Text = "" Then

Else
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from ID where id=" & Trim(Text1.Text)
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then
Text2.Text = ""
Text3.Text = ""

Set rs = Nothing
adocn.Close
MsgBox "没有查询到符合您要求的信息!", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text2.Text = rs.Fields("uid")
Text3.Text = rs.Fields("password")

Set rs = Nothing
adocn.Close
End If

End If
End Sub

Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub

呐，你5分想要vb源码，别做梦了。不过…给你提示，首先：打开，然后：读，最后：写出！想当年我100分问题源码都米人，还是师傅好，去找个师傅教呗。

'工程引用ado2.0 Dim adoPrimaryRS As Recordset ‘定义记录集 Dim db As Connection 定义ado连接 Private Sub Command1_Click() dbpath = "你的数据库文件" Set db = New Connection db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & dbpath & ";" ‘打开连接 Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select * from id where [id]=" & text1.Text, db, adOpenStatic, adLockOptimistic ’根据text1的内容生成记录集 If adoPrimaryRS.RecordCount > 0 Then ‘如果记录数大于零 text2.Text = adoPrimaryRS.Fields(1).Value ’ text2中显示第二个字段 text3.Text = adoPrimaryRS.Fields(2).Value ’ text3中显示第三个字段 End If '以下关闭连接与记录集 adoPrimaryRS.Close db.Close Set adoPrimaryRS = Nothing Set db = Nothing End Sub