vb连接数据库，那位高手帮一下忙

我要做一个药品管理软件，代码如下
Private Sub Command1_Click()

Adodc1.RecordSource = "select * from Sheet1 where 字段1 = '" & Trim(Text1.Text) & "'"
If Adodc1.Recordset.RecordCount > 0 Then
Text2.Text = Adodc1.Recordset.Fields("字段1")
Text3.Text = Adodc1.Recordset("字段2").Value
Text4.Text = Adodc1.Recordset("字段3").Value
Text5.Text = Adodc1.Recordset("字段4").Value
Text6.Text = Adodc1.Recordset("字段5").Value
Text7.Text = Adodc1.Recordset("字段6").Value
End If

Adodc1.Refresh

End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & "C:\Program Files\Tencent\QQ\Users\984287651\FileRecv" & "\药品数据库.mdb"

End Sub

发现无法执行，那位高手帮忙改正一下吧。要求，根据text1.text中输入的字符对每一记录的第一字段进行查询，并将查询到得符合要求的记录中所有字段显示出来

那位高手能帮我注释一下这个VB小程序？？？ 那位高手帮我写几句VB的语句 那位高手帮我做道VB题，谢谢! 那位高手帮我解释一下这些VB代码啊. 哪位高手帮我分析一下连接数据库的问题？ 那位高手帮我翻译一下 那位高手帮我诊断一下？ 那位高手帮一下忙找下驱动 那位高手帮一下忙吧 那位法语高手帮一下忙