updating access db from excel (1 Viewer)

Option Explicit

Dim intCOL As Integer
Dim intROW As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As String
Dim myCell As Range

If Not Intersect(Target, Range("$A:$M")) Is Nothing Then
    For Each myCell In Intersect(Target, Range("$A2:$M283"))
        intROW = myCell.Row
        intCOL = myCell.Column
        UpdateDatabase
    Next
End If

Application.EnableEvents = True

End Sub


Private Sub Test()
Dim r As Integer, c As Integer
   intROW = 157
   intCOL = 1
      UpdateDatabase
End Sub


Public Function BottomRow(ColumnNumber As Integer)
   BottomRow = Cells(Rows.Count, ColumnNumber).End(xlUp).Row
End Function


Private Sub UpdateDatabase()
Dim myID As Long
Dim db As Database, rs As Recordset

    Set db = OpenDatabase("Y:\Quality\Databases\eims.mdb")
    Set rs = db.OpenRecordset("M15", dbOpenTable)

    myID = Cells(intROW, 13).Value

    With rs
        Do
            If .Fields("ID") = myID Then
                .Edit
                Select Case intCOL
                Case Is = 1
                   .Fields("CharNum") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 2
                   .Fields("Desc") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 3
                   .Fields("OpNum") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 4
                   .Fields("Loc") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 5
                   .Fields("LSL") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 6
                   .Fields("USL") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 7
                   .Fields("GELSL") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 8
                   .Fields("GEUSL") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 9
                   .Fields("lessa") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 10
                   .Fields("morea") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 11
                   .Fields("lessb") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                Case Is = 12
                   .Fields("moreb") = Cells(intROW, intCOL)
                    .Update
                    Exit Do
                End Select
            End If
            rs.MoveNext
        Loop Until rs.EOF
    End With
        Set rs = Nothing
        Set db = Nothing
End Sub