vb 动态查询中 输入所查询的内容后，点击动态查询按钮，表格显示内容为空

'动态查询按钮的单击事件
Private Sub Command1_Click()
Dim dbname As String
Dim db As Database
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
'获得当前数据库
dbname = dbname & "office.mdb"
Set db = OpenDatabase(dbname)
db.Close
Data1.DatabaseName = dbname
'动态查询SQL语句
SQL = "select * from 公告信息 where '" & Combo1.Text & " ' = '" & Text1.Text & " '"
Data1.RecordSource = SQL
Data1.Visible = False
Data1.Refresh
MSFlexGrid1.Visible = True

End Sub
以上为点击动态按钮后的事件，请问怎么修改
改成 SQL = "select * from 公告信息 where " & Combo1.Text & " = '" & Text1.Text & " '" 这个后可以进行文字查询，然而进行编号查询（即输入数字）就会提示“数据类型不匹配”
若改成SQL = "select * from 公告信息 where " & Combo1.Text & " = " & Text1.Text & ""可以进行编号查询，当输入文字进行查询时系统会提示“实时错误3061，参数不足，期待是1”
这是什么原因<

vb 动态查询中 输入所查询的内容后，点击动态查询按钮，表格显示内容为空 vfp利用表单输入查询条件，显示表单中所要查询的内容的代码 VB中如何在查询的基础上再次进行查询 VB中数据库查询的语法问题 VB中标识符哪里有查询的 VB中如何模糊查询 如何在vb中按输入的值查询数据库的指定表的记录是否存在 怎样在VB中实现SQL语言的查询？ vb中使用adodc进行查询的方法 怎样使用VB查询EXCEL中单元格的内容？