急！！求VB查询代码

程序中form1已经与access数据库连接好了，显示的内容有工程名称，工程概况，地质条件，施工方法，支护参数，岩体类型这六项。下面有第一条，末一条，下一条上一条等按钮，都已经可以运行了。
现在想在加一个查询的按钮。能够按照工程名称查询。希望按了查询按钮，输入了查询内容后，能够像第一条，下一条等按钮一样，把需要查询的内容（比如查询秦岭隧道，就把秦岭隧道的六项内容全在上面对应的地方显示出来）在form1中显示出来。

用的是adodc1

由于没有具体学习过vb，这几天自己在网上也查了一些，但都用不了，所以希望能给的具体一点，在哪里输入什么代码。谢谢了。

如果好用在追加50分
如果能把查询后的内容在新窗口中显示出来也可以。这样就可以比如查询5级岩石，就把所有5级岩石的工程内容全显示出来了。最好支持模糊查询。这样就更好了

本人确实基础较差，希望能够具体详细地帮忙给出查询部分的代码，谢谢了。

如果运行良好，还可以在追加50分

现在代码改成这样了，然后运行是错误代码3709
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from 表名 where 工程名称='&trim(text1.text)&"
Text1.Text = rs.Fields(0)

rs.Close

End Sub

Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from 表名 where 工程名称='&trim(text5.text)&"
text1.Text = rs.Fields(0)
text2.Text = rs.Fields(1)
text3.Text = rs.Fields(2)
text4.Text = rs.Fields(3)
...
rs.close

End Sub

你要先添加部件的，工程打开后，右击左边的控件栏，点击部件，在microsoft ado data control 6.0上打钩确定。把控件拖到窗口，就有对象了。

1楼的谢谢了，不过运行后出现了实时错误424，要求对象。另外你的回答中秦岭隧道部分应该替换成什么，查询不是只查询秦岭隧道，只是举个例子，谢谢了

下面是我这个程序form1的源代码：

Dim allowchange As Boolean
Private Sub Command1_Click()
allowchange = False
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End If

End Sub
Private Sub Command10_Click()
End
End Sub
Private Sub Command11_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
allowchange = False