VB6数据库查询问题 标准表达式中数据类型不匹配
VB6数据库查询问题：
代码如下所示：
其中cbSearch是一个下拉列表框，连接的数据库是access2000数据库
If txtSearch.Text = " " Then
MsgBox "查询条件不能为空！ ", vbOKOnly + vbInformation, "查询 "
Else
Adodc1.RecordSource = "select * from 销售信息表 where " & Trim(cbSearch.Text) & " = ' " & Trim(txtSearch.Text) & " ' "
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "找不到该条件的记录！ ", vbOKOnly + vbInformation, "查询 "
End If
End If
问题是比如txtSearch中输入一个条件时，当输入的条件和数据库中类型不相同是，vb弹出错误窗口：标准表达式中数据类型不匹配
比如Adodc1.RecordSource = "select * from 销售信息表 where 序号= ' " & Trim(txtSearch.Text) & " ' "
这个序号字段在access中是数字型的，就会弹出标准表达式中数据类型不匹配的错误
因为&连接符在连接两盘的操作数的时候不管是字符型还是数值型，进行连接操作前
'都是系统先将操作符数转换成字符型再连接造成的，本人又不想改数据库，
求解决办法。
[解决办法]
Adodc1.RecordSource = "select * from 销售信息表 where 序号= " & Trim(txtSearch.Text)
[解决办法]
"select * from 销售信息表 where 序号= " & Trim(txtSearch.Text) & " "
