多步操作产生错误,应该怎么改?

Private Sub cmdSave_Click()   
    strSql = "SELECT distinct 本厂编号 FROM 记录卡  where format(检定日期,'yyyy-m')='" & Form12.Combo2.Text & "-" &     Form12.Combo1.Text & "'order by 本厂编号"
    If rsTemp.State = adStateOpen Then rsTemp.Close
    rsTemp.CursorLocation = adUseClient
    rsTemp.Open strSql, cnnfile, adOpenKeyset, adLockOptimistic
    For I = 1 To rsTemp.RecordCount
        With jianding(MSHFlexGrid)
            sql1 = "SELECT 实际完成日期 FROM 记录卡 where 本厂编号='" + rsTemp.Fields(0) + "' and format(检定日期,'yyyy-m')='" & Form12.Combo2.Text & "-" & Form12.Combo1.Text & "'  order by  检定日期 desc "
            If rsJlkhz.State = adStateOpen Then rsJlkhz.Close
            rsJlkhz.CursorLocation = adUseClient
            rsJlkhz.Open sql1, cnnfile, adOpenKeyset, adLockOptimistic
            rsJlkhz.Fields("实际完成日期") = " & Trim(.TextMatrix(I, 6)) & " (执行到这里多步操作产生错误)
            rsJlkhz.Update
            Unload Me
            rsJlkhz.Close
            rsTemp.MoveNext
        End With
    Next
    MsgBox "保存成功！", vbOKOnly, "提示"
End Sub