关于类型不匹配

js_gaof

Private Sub cmd_search_Click()
Dim rs_srh As New ADODB.Recordset
Dim srhsql As String
srhsql = "select * from tbl_company where com_name like ""*" & (Text_Cname.Text) & "" * ""
rs_srh.Open srhsql, conn, adOpenKeyset, adLockOptimistic
'检验值是否存在
If rs_srh.EOF = True And rs_srh.BOF = True Then
MsgBox "没有找到相关记录", vbOKOnly, "出错信息"
Else
'将找到的值赋给combo_search
Do While Not rs_srh.EOF
    If Trim(rs_srh.Fields("com_name")) <> "" Then
      Combo_search.AddItem rs_srh.Fields("com_name").Value
    End If
    rs_srh.MoveNext
Loop
Combo_search.Visible = True
rs_srh.Close
End If
End Sub


报错信息：错误13，类型不匹配
我写这个代码的目的，就是想在TEXTBOX中输入公司名简称后，点搜索后，找出相近的公司名称。
数据库用的是ACCESS数据库，界面用VB写的
困难：我查了一下SELECT语句的用法，发现%为代表0-N个字符的通配符，而我用"%"&text_cname.text&"%"的时候，VB报错无效字效，只好用*，但问题是一直报类型不匹配，却又不知道问题出在哪，求各位大侠们拔笔相助，谢谢了

amazeyeli

[code=sql]select * from tbl_company where com_name like '%text_cname.text%'[/code]

js_gaof

谢谢，您真是帮大忙了