在窗体中新建2个文本框分别为TEXT1和TEXT2，有DataGrid和Adodc将VB与一个数据库中的表格“表1”连接起来，现在想分别在两个文本框中输入不同的信息，如姓名、编号，然后点击命令按钮进行查询，将结果显示在DataGrid，这个程序代码要如何写，通过一个文本框查询我会代码如下，同时查两个或两个以上我就不会了
If Text1.Text <> "" Then
mystr = Choose(1, "名称", "编号")
Adodc.RecordSource = "select * from 表1 where " + mystr + " like '%" & Text1.Text & "%'"
Adodc.Refresh
多个文本框查询如何编写，跪求高手解答

是不是麻烦了点？
Adodc.RecordSource = "select * from 表1 where " + mystr + " like '%" & Text1.Text & "%'  and  " + mystr + " like '%" & Text2.Text & "%'"'用and连起来

如果文本框为空会不会有影响？

你试试就知道了啊！
如果不允许空查询就多写一句
if text1.text="" or text2.text="" then  '如果两个文本框其中有一个是空
   exit sub  '退出过程
end if
如果你需要默认无条件查询直接
Adodc.RecordSource = "select * from 表1 "
就可以了
如果你要灵活的查询就做一个多条件查询，提供一点给你参考一下
dim a
If Len(text1.Text) > 0 Then
      a = "" + mystr + " like  '" & text1.Text & "'"
End If
If Len(text2.Text) > 0 Then
    If Len(a) > 0 Then
           a = a & " and " + mystr + " like  '" & text2.Text & "'"
       Else
          a = "" + mystr + " like  '" & text2.Text & "'"
    End If
End If
Adodc.RecordSource = "select * from 表1 where" & a

Adodc.Refresh
在这一步时会出现报错，“无法错误（操作符丢失）在查询表达式‘名称 like '%王%' 编号 like '%12%'"中.为什么？

少了and吧

这个and应该加在哪里才合适？

两个查询条件的中间
and是“和”的意思，懂吗？

已解决，谢谢！