在线等待!帮忙调一下程序!

Question

这段程序
   Dim mrc As ADODB.Recordset    
   dim txtSQL as string............  txtSQL = "select * from Test_Infor  group by Test_Chap " 
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.BOF Then
     mrc.MoveFirst
     End If
    .....
每次运行运行,都显示对象变量或with块变量未设置
选择调试后,"If Not mrc.BOF Then"显示黄色
去掉"group by Test_Chap "后程序正常
注:Test_Chap 为String,对应数据库中的一个字段
我怀疑该错误是由于没有找到任何记录引起的,但就是不知道怎么改!