问题尚未解决，再次提问请求帮助！！！

Question

setmrc =new ADODB.Recordset

Answer 1

写错了
Dim mrc As ADODB.Recordset
set mrc =new ADODB.Recordset

Answer 2

Set mrc = ExecuteSQL(txtSQL, MsgText)
应该是这条语句引起的错误，ExecuteSQL是你自定义的函数吗？

Answer 3

Set mrc = ExecuteSQL(txtSQL, MsgText)
应该是这条语句引起的错误，ExecuteSQL是你自定义的函数吗？我做的模块里定义过了

Answer 4

跟踪到Set mrc = ExecuteSQL(txtSQL, MsgText)
看看该语句执行完了，mrc对象有没有正确生成

Answer 5

我琢句运行时在Private Sub Form_Load()上显示高亮条。