Update Table from Unbound Form - Problem with For Loop sequence

Function UpdateTables(strMain As String, strTable As String)
    On Error GoTo UpdateTables_Error
    Dim rs As DAO.Recordset
    Dim F As Form
    Dim c As Control
    Dim i As Long
    Dim strSQL As String
    Dim strFormField As String
    'Identify the form/subform you're working with
    Set F = Forms(strMain).Form
    ' Open the table to add new records
    strSQL = strTable
    Set rs = Currentdb.OpenRecordset(strSQL)
        rs.AddNew
        For i = 0 To rs.Fields.Count - 1
            For Each c In F
                strFormField = c.Name
                Debug.Print strFormField
   '>>>>>     If rs.Fields(i).Type <> dbText Or rs.Fields(i).Type <> dbMemo Or rs.Fields(i).Type <> dbInteger Or rs.Fields(i).Type <> dbDate Then
                    GoTo ResumeNext
                ElseIf rs.Fields(i).Name = strFormField Then
                    rs.Fields(i).Value = Nz(F(strFormField).Value)
                End If
ResumeNext:
            Next c
        Next i
        rs.Update
    rs.Close
    Set rs = Nothing
    'Now clean up the form so the user can add a new record if he wants
    ClearFormData strMain
    
 
UpdateTables_Error:
    Select Case Err
        Case 0
            Exit Function
        Case Else
            MsgBox "Subroutine Functions" & ".UpdateTables." & vbCrLf & vbCrLf & "You have error number " & Err & ".  " & Err.Description
    End Select
End Function