关于 写如word的问题···

问题是SQL查询出相应的数据，一共8条，然后在写入WORD里面，可是写入一条后，就报错了。
错误提示：BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前操作
还望各位赐教~~~
谢谢···
    txtsql = "select testquestion.quessequ,testdes.stdes "
    txtsql = txtsql & "from testquestion,testdes "
    txtsql = txtsql & "where testquestion.questionid=testdes.编号 and testdes.sttype='" & tiabtrs.Fields("ques_type")
    txtsql = txtsql & "' and testquestion.testid='" & testid & "' and testquestion.test_item_id='" & test_item_id & "' and testquestion.test_item_ab='" & test_item_ab
    txtsql = txtsql & "' order by quessequ"
    
    Set mrc = dbconn.Execute(txtsql)
    Do While Not mrc.EOF
    With ddSel
        .Font.Size = 12
        .TypeText Text:=mrc.Fields("quessequ") & ". "
        .TypeText Text:=Trim(mrc.Fields("stdes")) & " "
        .TypeParagraph
    End With
    tiabtrs.MoveNext
    Loop
    mrc.Close