第一步、在窗体中拖出ADODC1、datagrid1、combo1、text1、command1其中combo1用来选择查询字段，text1用来输入字段的值。
第二步、对adodc1进行数据库连接操作，数据源先设置为表，选择相应的表
第三步、将datagrid1和adodc1进行绑定。
第四步、设置combo1的list属性。
第五步、设置command1动作：

Dim instr1
instr1 = Combo1.List(Combo1.ListIndex) & "='" & Text1.Text & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from student where " & instr1
Adodc1.Refresh
DataGrid1.ReBind

保存运行

以上代码在vb6.0运行通过。