vb读取access数据

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql$
Function openconn()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\1.mdb" '此处为数据库相对路径
End Function
Function closeconn()
conn.Close
End Function
Private Sub Command1_Click()
Call openconn
rs.Open "select * from [表1]", conn, 1, 3
rs.AddNew
rs("姓名") = Text1.Text
rs("分数") = Text2.Text
rs.Update
rs.Close
Call closeconn
MsgBox "添加数据成功!"
End Sub
这个是我写入的代码。我想Command2按钮读取。读取到的值保存在text4，也是一样读取姓名和分数
读取时按text3的条件读取。也就是text3写入姓名text4读取出对应分数。

Private Sub Command2_Click()
If Text3 = "" Then
MsgBox "请输入查询内容！"
Text3.SetFocus
Else
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\1.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from [表1] where 姓名='" & Text3.Text & "'", conn
If rs.EOF Then
MsgBox "查找内容不存在,请重新输入！"
Text3.SetFocus
Else
On Error Resume Next
Text4.Text = rs.Fields(2) '表内第0列为编号，第1列姓名，第2列为分数
rs.Close
conn.Close
End If
End If
End Sub