I'm trying to update a table from an unbound form....everything works with the code upto the ADO section at the bottom....I don't receive an error, it just doesn't write anything to the table. If anyone can help....please do

Private Sub Command9_Click()
Dim EventDate As Date
Dim OTList As Variant
Dim LList As Variant
Dim OTSel As String
Dim LSel As String
Dim comma As String
Dim OTFinal As String
Dim LFinal As String
Dim EDate As Date
Dim EType As String
Dim Conn As ADODB.Connection
Dim ETable As ADODB.Recordset

Forms!Add_Event!Calendar7 = EDate
Forms!Add_Event!Combo10 = EType

OTSel = ""
LSel = ""
comma = ","

For Each OTList In Forms!Add_Event!On_Time.ItemsSelected
OTSel = OTSel & Forms!Add_Event!On_Time.ItemData(OTList)
OTSel = OTSel & comma
Next OTList
OTFinal = (Left(OTSel, Len(OTSel) - Len(comma)))

For Each LList In Forms!Add_Event!Late.ItemsSelected
LSel = LSel & Forms!Add_Event!Late.ItemData(LList)
LSel = LSel & comma
Next LList
LFinal = (Left(LSel, Len(LSel) - Len(comma)))

Set Conn = CurrentProject.Connection
Set ETable = New ADODB.Recordset

tablestr$ = "AllEvents"

ETable.Open tablestr$, Conn, adOpenForwardOnly, adLockBatchOptimistic, adCmdTableDirect


ETable!Date = EDate
ETable!Event_Type = EType
ETable!OnTime = OTFinal
ETable!Late = LFinal


End Sub