VB的查询,谁能帮我改一下

txtsql = ""
If Trim(Combo1(0).Text) <> "" Then

If txtsql = "" Then

txtsql = "zpjj.班别='" & Trim(Combo1(0).Text) & "'"
Else
txtsql = txtsql & "and zpjj.班别='" & Trim(Combo1(0).Text) & "'"
End If
End If
If Combo1(0).Text = "" Then
ss = MsgBox("请选择班别！", vbExclamation + vbOKOnly, "警告")

Exit Sub

End If
If Trim(Combo1(1).Text) <> "" Then

If txtsql = "" Then

txtsql = "zpjj.铸机='" & Trim(Combo1(1).Text) & "'"
Else
txtsql = txtsql & "and zpjj.铸机='" & Trim(Combo1(1).Text) & "'"
End If
End If
If Combo1(1).Text = "" Then
ss = MsgBox("请选择铸机！", vbExclamation + vbOKOnly, "警告")

数据库有没有打开？
Set mrc = ExecuteSQL(str)这一句，疑点也很大
另外，看看数据表各字段的数据定义
在用vb读取时，有没有出现数据类型不一致的地方

ExecuteSQL函数有问题 比如数据库没打开 比如执行sql出错 结果没有返回recordset 因此就会出错

用Msgbox txtsql，把sql语句显示一下，看看有什么错误；或者把sql语句复制到数据库中执行一下。

提示什么错误

求助！！麻烦高手帮我改一下vb access 数据查询 代码，实现模糊查询。谢谢了。 数据库的查询,谁能帮我弄一下 vb求完全数，请高手帮我改一下！ 大家帮我改一下这个VB代码 谁能帮我改下这个VB代码。 我想查询一下刚改的教师工资表格 谁能帮我改一下我的诗歌 谁能帮我改一下文中的错误 救救我，vb，access查询 谁能帮我查询一下火车票