cmD.CommandText = "SELECT * FROM hetong where type=" & TextType & " And htbhao=" & TextHTBhao        adOpenStatic = 3
        adLockBatchOptimistic = 4
        Rst1.CursorLocation = ADODB.CursorLocationEnum.adUseClient 'adUseClient  '定义Recordset游标的位置
        Rst1.Open(cmD, , adOpenStatic, adLockBatchOptimistic)  
错误提示:
'语法错误 (操作符丢失) 在查询表达式 'type = 24018CA/W33 And htbhao = 201003002' 中。
问题在何处?