I'm using Excel 2007 and Access 2007. I'm trying to use Excel as a front end while trying to code to write changes in the access database. I basically took some sample codes from various site and tried to make it work with no luck. Hopefully someone will be able to see what my issue is right away! Based on a unique identifier (AUTONUMBER) I want it to update all the fields except the autonumber. I dont get any errors, but I don't get any updates either.

Sub Reassign()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ID As Long, RecordRow As Long
Dim Sqlstr As String


' Update this path to where the database resides
MyConn = "\\CHIC-MS-001\CHIC-GroupData\Customer Service Accounting\Deduction Tracking\Daily Deductions Tracking.mdb"



' Open the connection
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open MyConn
End With

' Open the Recordset
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer

' Open the Table
rst.Open Source:="tblDailyDeductionsTracking", _
ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, _
LockType:=adLockOptimistic, _
Options:=adCmdTable

' Row 1 contains column headings
Sheets("Reassign").Select
Range("A4").Activate

On Error GoTo ErrorHandler:
'Set Db = CurrentDb


If rst.BOF And rst.EOF Then
MsgBox "table with updates is empty "
Else
'Do While Not rst.EOF
Do While Not IsEmpty(ActiveCell)



S_ID = ActiveCell.Value
S_GDM = ActiveCell.Offset(0, 1).Value
S_CUST_CATEGORY_2 = ActiveCell.Offset(0, 2).Value
S_CUSTOMER_NUMBER = ActiveCell.Offset(0, 3).Value
S_Name = ActiveCell.Offset(0, 4).Value
S_TRAN_CODE = ActiveCell.Offset(0, 5).Value
S_SHIP_DATE = ActiveCell.Offset(0, 6).Value
S_CASH_DISTRIB_DATE = ActiveCell.Offset(0, 7).Value
S_PREFIX_REF_NUMBER = ActiveCell.Offset(0, 8).Value
S_REFERENCE_NUMBER = ActiveCell.Offset(0, 9).Value
S_SUFFIX_REF_NUMBER = ActiveCell.Offset(0, 10).Value
S_TRANSACTION_AMOUNT = ActiveCell.Offset(0, 11).Value
S_Year = ActiveCell.Offset(0, 12).Value
S_OWNER = ActiveCell.Offset(0, 13).Value
S_ORDER_Number = ActiveCell.Offset(0, 14).Value
S_Status = ActiveCell.Offset(0, 15).Value
S_DATE_ASSIGNED = ActiveCell.Offset(0, 16).Value
S_DUE_DATE = ActiveCell.Offset(0, 17).Value
S_DEDUCTION_REASON = ActiveCell.Offset(0, 18).Value
S_WAITING_ON = ActiveCell.Offset(0, 19).Value
S_Contact_Name = ActiveCell.Offset(0, 20).Value
S_Response_Time = ActiveCell.Offset(0, 21).Value
S_NEED_INFO_APPROVAL_FROM = ActiveCell.Offset(0, 22).Value
S_ACTION_TAKEN_TO_CLOSE = ActiveCell.Offset(0, 23).Value
S_CLOSED_DATE = ActiveCell.Offset(0, 24).Value
S_Notes = ActiveCell.Offset(0, 25).Value

'create update statement

Sqlstr = "SELECT * FROM tblDailyDeductionsTracking where ID =" & ActiveCell


With rst


rst("GDM") = S_GDM
rst("CUST_CATEGORY_2") = S_CUST_CATEGORY_2
rst("CUSTOMER_NUMBER") = S_CUSTOMER_NUMBER
rst("Name") = S_Name
rst("TRAN_CODE") = S_TRAN_CODE
rst("SHIP_DATE") = S_SHIP_DATE
rst("CASH_DISTRIB_DATE") = S_CASH_DISTRIB_DATE
rst("PREFIX_REF_NUMBER") = S_PREFIX_REF_NUMBER
rst("REFERENCE_NUMBER") = S_REFERENCE_NUMBER
rst("SUFFIX_REF_NUMBER") = S_SUFFIX_REF_NUMBER
rst("TRANSACTION_AMOUNT") = S_TRANSACTION_AMOUNT
rst("Year") = S_Year
rst("OWNER") = S_OWNER
rst("ORDER NUMBER") = S_ORDER_Number
rst("Status") = S_Status
rst("DATE_ASSIGNED") = S_DATE_ASSIGNED
rst("DUE_DATE") = S_DUE_DATE
rst("DEDUCTION_REASON") = S_DEDUCTION_REASON
rst("WAITING_ON") = S_WAITING_ON
rst("Contact_Name") = S_Contact_Name
rst("Response_Time") = S_Response_Time
rst("NEED_INFO_APPROVAL_FROM") = S_NEED_INFO_APPROVAL_FROM
rst("ACTION_TAKEN_TO_CLOSE") = S_ACTION_TAKEN_TO_CLOSE
rst("CLOSED_DATE") = S_CLOSED_DATE
rst("Notes") = S_Notes
rst.Update

End With

ActiveCell.Offset(1, 0).Activate
Loop
End If
rst.Close

cnn.Close

MsgBox ("Records have been updated. Thank you!")


Set rst = Nothing
Set cnn = Nothing


Exit Sub

ErrorHandler:
MsgBox Err.Number & " " & Err.Description
End Sub