Update an access table from Excel

Sub updateDatabase()
 
Dim dataSet As Range, cl As Range, changedCells As Range
Dim DBref As Long, DBfield As String, strMsgReport As String
Dim duplicatedAction As Boolean: duplicatedAction = False
Dim dataSubmitted As Boolean: dataSubmitted = False
Dim arrFieldsUpdated(), intFieldUpdateCount As Integer, x As Integer
 
resetGlobals
 
If lastReviewRow <= Range("headers").Rows.Count Then
    MsgBox "no data found for updating", vbCritical
    Exit Sub
End If
 
' set database objects
Dim rsDataSet As DAO.Recordset
Set dB = OpenDatabase(strDatabase)
Set rsDataSet = dB.OpenRecordset(strTBL_timesheets, dbOpenTable)
 
With shtReviewer
    Set dataSet = .Range(.Cells(Range("headers").Rows.Count + 1, 1), .Cells(lastReviewRow, lastReviewColumn))
End With
 
' identify changed cells; update database for those rows, including status, submitted by/time/date
On Error Resume Next
Set changedCells = dataSet.SpecialCells(xlCellTypeComments)
On Error GoTo 0
 
If Not changedCells Is Nothing Then
 
    With rsDataSet
 
        ' review each cell in turn and make changes
        For Each cl In changedCells
 
            ' get DB ref, and field name
            DBref = Cells(cl.Row, 1).Value
            DBfield = Cells(1, cl.Column).Value
 
            .MoveFirst
 
            Do While Not .EOF
                If !DBref = DBref Then
                    If !submittedDate = Cells(cl.Row, colDate).Value And !submittedTime = Cells(cl.Row, colTime).Value Then
 
                        ' records reference # of updated field
                        intFieldUpdateCount = intFieldUpdateCount + 1
                        ReDim Preserve arrFieldsUpdated(1 To intFieldUpdateCount)
                        arrFieldsUpdated(intFieldUpdateCount) = !DBref
 
                        .Edit
                        .Fields(DBfield) = cl
                        .Update
 
                        cl.Interior.ColorIndex = 0
                        cl.Comment.Delete
                        dataSubmitted = True
                    Else
                        duplicatedAction = True
                    End If
                End If
                .MoveNext
            Loop
        Next cl
 
        ' record new details of time / date field changed
        For Each cl In changedCells
            .MoveFirst
 
            Do While Not .EOF
                For x = LBound(arrFieldsUpdated) To UBound(arrFieldsUpdated)
                    If !DBref = arrFieldsUpdated(x) Then
                        .Edit
                        !Status = "updated"
                        !submittedBy = Environ("UserName")
                        !submittedDate = Date
                        !submittedTime = Time
                        .Update
                    End If
                Next x
                .MoveNext
            Loop
        Next cl
    End With
Else:
    MsgBox "no changes found"
End If
 
strMsgReport = IIf(dataSubmitted, "Updates have been submitted to the database" & vbCr & vbCr, "") & IIf(duplicatedAction, "Some updates could not be made, as these have been changed already. Please see data set, and compare with latest entries in database", "")
 
If strMsgReport <> "" Then MsgBox strMsgReport
 
End Sub