【求助】帮忙一个VB的查询功能代码

我新手刚做了一个VB+access数据库的程序。
如图除了查询按钮的功能没实现以外，其他都差不多可以运行了。
上网搜索了很多方法也没成功。求哪位高手帮忙给个查询的代码啊。
[img=http://t1.qpic.cn/mblogpic/71f557492ed337131fda/460][/img]

附其他代码
Dim Constr As String 
Dim FileName As String 
Const BLOCKSIZE = 4096 
Dim ADOCon As New ADODB.Connection 
Dim ADORst As New ADODB.Recordset 
Dim ADOFld As ADODB.Field 
-------
Private Sub Command2_Click()
CommonDialog1.Filter = "图片文件|*.bmp;*.ico;*.jpg;*.gif;*.jpeg"
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
Image1.Image = LoadPicture(FileName) 
End Sub
-------
Private Sub Command3_Click()
ADORst.AddNew 
ADORst("Name").Value = Text1.Text 
ADORst("ID").Value = Text2.Text 
Set ADOFld = ADORst("Photo") 
Call SaveToDB(ADOFld, FileName) 
ADORst.Update
End Sub
--------
Private Sub Form_Load()
ADOCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "" _
& "\table.mdb;Persist Security Info=False"
ADORst.Open "select * from table", ADOCon, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = ADORst 
End Sub


如何数据量大了的话，用Adodc来浏览太麻烦了。
在text1和text2里输入后点查询，在下面就可以显示名称，编号和照片。
哪位高手帮忙一下，小弟不胜感激。 数据量大的话用adodb或adodc绑定datagrid或mshflexgrid来浏览。
查询可以用Recordset.filter来筛选。
ADODC还是用ADODB用得自由点。

补充：VB ,  数据库(包含打印，安装，报表)