คำสั่งที่เขียนไปใช้งานประมาณนี้ครับอาจารย์ แต่พอรันแล้วขึ้นเอ่อเร่อครับไม่ทราบว่า ผมต้องแก้ไขตรงไหนครับ

Sub SaveConsult()
Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("T_Consult", dbOpenDynaset)
    Dim i As Long
    Dim a As Date
    Dim b As Date
    Dim c As Date
    For i = 1 To 7
    For a = 1 To 7
    For c = 1 To 7
    For b = 1 To 7
        If Not IsNull(Me("cmbConsult" & i)) And _
        Not IsNull(Me("txtDateConsult" & a)) And _
        Not IsNull(Me("txtTimeConsult" & b)) And _
        Not IsNull(Me("txtOutConsult" & c)) Then
       
            rs.AddNew
            rs!ConsultList = Me("cmbConsult" & i).Column(0)
            rs!ConsultDate = Me("txtDateConsult" & a)
            rs!ConsultTime = Me("txtTimeConsult" & b)
            rs!ConsultOut = Me("txtOutConsult" & c)
            rs!Consult_ID = Me.txtID
            rs.Update
        End If
    Next
    rs.Close: Set rs = Nothing

End Sub