VB 6.0数据库查询代码不会，求指教！

下面的代码基于以下4点假设：
1，控件的名称分别是：
3个文本框从上到下：Text1、Text2、Text3
ADO控件名为：Adodc1，网格控件名为：DataGrid1
2，根据你给出的图片，字段[钢级]为字符类型、[外径]和[壁厚]为数值类型。
3，你的数据库文件名为“数据库.mdb”,且已经保存在与本工程文件同一个文件夹里。
4，你所使用的数据表名为“钢材数据表”

那么，在[查询]按钮的单击事件里，编写如下代码就可以实现你的要求：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * From 钢材数据表 Where 钢级='" & Text1.text & "' And 外径=" & trext2.text & " And 壁厚=" & text3.text
Adodc1.Refresh
If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then
　Set DataGrid1.DataSource = Adodc1
Else

　MsgBox "没找到！"
End If