SQL String Error

Hello,

I am having issues writing from a table in excel to an SQL database. I keep getting the error "Incorrect syntax near ','.". I have checked thoroughly and I can't see where the issue could come from. I have checked the output of the first loop in the intermediate window and can see that the values are all as expected, so I don't see where the cell values could be throwing the query? Code is below (N.B. I have removed the server name), any thoughts are very much welcome.

Thanks,

Adrian

-----

Sub UpdateCPLT()

Dim conn As ADODB.Connection
Dim sConnString As String
Dim iRowNo As Integer
Dim strcplt_id, strclass_id, strinitial_payout, strinitial_agg_attachment, strinitial_trigger_events, strnum_periods, strcurrency_curve_set_id, strclass_terms_revision, strmiu_data_version, strmiu_engine_version, strmiu_database_version, strdefault_currency_curve_set_id As Integer
Dim strstatus, strcurrency, struser_name, strstart_date, strend_date, strclass_start_date, strclass_end_date As String

With Sheets("Analysis_Import_Prep")

' Create the connection string.
sConnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Adrian_Prep;Data Source=######\######"

' Create the Connection and Recordset objects.
Set conn = New ADODB.Connection

' Open the connection and execute.
conn.Open sConnString

'Skip the header row
iRowNo = 2

'Loop until empty cell in ClassId
Do Until .Cells(iRowNo, 27) = ""

strcplt_id = .Cells(iRowNo, 27)
strclass_id = .Cells(iRowNo, 28)
strinitial_payout = .Cells(iRowNo, 29)
strinitial_agg_attachment = .Cells(iRowNo, 30)
strinitial_trigger_events = .Cells(iRowNo, 31)
strstart_date = Format(.Cells(iRowNo, 32), "yyyy/mm/dd") & " 00:00:00.000"
strend_date = Format(.Cells(iRowNo, 33), "yyyy/mm/dd") & " 00:00:00.000"
strstatus = .Cells(iRowNo, 34)
strnum_periods = .Cells(iRowNo, 37)
strcurrency_curve_set_id = .Cells(iRowNo, 39)
strcpltclass_terms_revision_id = .Cells(iRowNo, 40)
strcurrency = .Cells(iRowNo, 41)
strclass_start_date = Format(.Cells(iRowNo, 42), "yyyy/mm/dd") & " 00:00:00.000"
strclass_end_date = Format(.Cells(iRowNo, 43), "yyyy/mm/dd") & " 00:00:00.000"
struser_name = .Cells(iRowNo, 44)
strmiu_data_version = .Cells(iRowNo, 45)
strmiu_engine_version = .Cells(iRowNo, 46)
strmiu_database_version = .Cells(iRowNo, 47)
strdefault_currency_curve_set_id = .Cells(iRowNo, 48)

'Generate and execute sql statement to import the excel rows to SQL Server table
conn.Execute "set identity_insert cplt ON " & _
"Insert into cplt (cplt_id, class_id, initial_payout, initial_agg_attachment, initial_trigger_events, start_date, " & _
"end_date, status, pct_complete, message, num_periods, parent_cplt_id, currency_curve_set_id, class_terms_revision, " & _
"[currency], class_start_date, class_end_date, user_name, miu_data_version, miu_engine_version, miu_database_version, " & _
"default_currency_curve_set_id, run_queue_date, run_start_date, run_end_date) " & _
"values(" & strcplt_id & ", " & _
strclass_id & ", " & _
strinitial_payout & ", " & _
strinitial_agg_attachment & ", " & _
strinitial_trigger_events & ", " & _
"cast('" & strstart_date & "' as datetime), " & _
"cast('" & strend_date & "' as datetime), '" & _
strstatus & "', NULL, NULL, " & _
strnum_periods & ", NULL, " & _
strcurrency_curve_set_id & ", " & _
strclass_terms_revision & ", '" & _
strcurrency & "', " & _
"cast('" & strclass_start_date & "' as datetime), " & _
"cast('" & strclass_end_date & "' as datetime), '" & _
struser_name & "', " & _
strmiu_data_version & ", " & _
strmiu_engine_version & ", " & _
strmiu_database_version & ", " & _
strdefault_currency_curve_set_id & ", NULL, NULL, NULL)"

iRowNo = iRowNo + 1

Loop

MsgBox "CPLT imported"

conn.Close
Set conn = Nothing

End With

End Sub