VB6数据库查询问题 标准表达式中数据类型不匹配

hurryletme

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中是数字型的，就会弹出标准表达式中数据类型不匹配的错误

因为&连接符在连接两盘的操作数的时候不管是字符型还是数值型，进行连接操作前
'都是系统先将操作符数转换成字符型再连接造成的，本人又不想改数据库，
求解决办法。

bzzllc

Adodc1.RecordSource = "select * from 销售信息表 where 序号= " & Trim(txtSearch.Text)

lava2411

"select * from 销售信息表 where 序号= " & Trim(txtSearch.Text) &""