在一个“成员查询”界面上要输入一个人的姓名来查询数据库中的这个人的全部信息并显示在界面上[答疑]

我做的一个VB程序，在一个“成员查询”界面上要输入一个人的姓名来查询数据库中的这个人的全部信息并显示在界面上，但是代码不会写啊！我也是刚学VB，也不明白应该怎么弄，帮忙给个详细的代码！谢谢！

'〓〓〓〓〓〓〓〓〓〓OpenAccess函数相关定义声明等Start
PublicConnAsNewADODB.Connection
PublicHidErrAsBoolean
PublicRSAsNewADODB.Recordset
PubliccommAsNewADODB.Command
'〓〓〓〓〓〓〓〓〓〓OpenAccess函数相关定义声明等End
'┏〓〓〓〓〓〓〓〓〓OpenAccess,start〓〓〓〓〓〓〓〓〓┓
'［详介］：
'函数注释:
'［简介］：
'打开ACCESS数据库，可设定登陆的密码
FunctionOpenAccess(MdbfilepathAsString,OptionalMdbpasswordAsString,OptionalusemdwAsBoolean)AsBoolean
'帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'联系QQ：1085992075--需要什么函数或功能，可以联系我。
OnErrorGoToerr
DimConnStrAsString
Conn.ConnectionTimeout=999999999
ConnStr="Provider=MSDASQL.1;PersistSecurityInfo=false;UserID=sa;ExtendedProperties=DRIVER=MicrosoftAccessDriver(*.mdb);"
IfusemdwThenConnStr=ConnStr&"DBPROP_JETOLEDB_SYSDBPATH="&Chr(34)&"F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW"&Chr(34)&";user=admin;pass=abc;"
ConnStr=ConnStr&"DBQ="&Mdbfilepath&";Password="&Mdbpassword
Conn.openConnStr
OpenAccess=True
ExitFunction
err:
IfNotHidErrThen

MsgBoxerr.Number&vbCrLf&err.Description
EndIf
EndFunction
'┗〓〓〓〓〓〓〓〓〓OpenAccess,end〓〓〓〓〓〓〓〓〓┛

SubTest()
DimRSAsNewADODB.Recordset
'SetRs=CreateObject("adodb.recordset")
DimSqlAsString
Sql="select*from表1WHEREUSER='"&"李三"&"'"

'以上用来查李三这条数据
RS.openSql,Conn,1,3
MsgBoxRS(0)
EndSub

PrivateSubCommand1_Click()
OpenAccessAPP.PATH&"\1.mdb"

Test
EndSub