为什么说我时时错误

Private Sub ShowData()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
txtSQL = "select * from class_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With MSFlexGrid1
MSFlexGrid1.ColWidth(0) = 1200
MSFlexGrid1.ColWidth(1) = 1200
MSFlexGrid1.ColWidth(2) = 1200
MSFlexGrid1.ColWidth(3) = 6000
MSFlexGrid1.TextMatrix(0, 0) = "班级编号"
MSFlexGrid1.TextMatrix(0, 1) = "班级名称"
MSFlexGrid1.TextMatrix(0, 2) = "导员姓名"
MSFlexGrid1.TextMatrix(0, 3) = "备注信息"
MSFlexGrid1.Rows = 1
Do While Not mrc.EOF ( 是不是这错了？？？？？？）
.Rows = .Rows + 1
For i = 0 To mrc.Fields.Count - 1
.TextMatrix(.Rows - 1, i) = mrc.Fields(i) & ""
Next i
mrc.MoveNext
Loop
End With
mrc.Close

为什么说我时时错误 为什么我心里时时觉得空落落的? 为什么说我的格式错误拉 为什么QQ老是说我密码错误 为什么我QQ老是说密码错误? 本人话少，内向，时时有人说我太内向， 为什么我的电脑上网时时常会出现ieplore.exe产生了错误，会被WINDWOS关闭，你需重新启动程序。 为什么组长时时刁难我？我该怎么办？ 为什么我的IE总是时时 出现问题 需要关闭？？ 为什么我的瑞星时时监查总是发现漏洞？