ODBC Called Failed During SQL Insert Into Call

Hi

Wrote this snipet of code to use Insert Into. I have an ODBC connection to Oracle with the Tables linked. I can edit, add write querries and do everything I need to do except do an Insert Into. So I am thinking it is my code and seeking guidance.

I select add data from a button on the form. It then calls the code below. I know it is making it up to the db.execute statement and failing at that point. Funny thing is I only get the error "ODBC Call Failed" and no other snippets of information. On top of that I can not relink to the tables as they are now unaccessible and I have to completely close down the program and restart. Any help/assistance will be greatly appreciated. Thank you, Here is the code:

Code Start:

Private Sub btn_add_rca_record_Click()
On Error GoTo Err_btn_add_rca_record_Click
Dim db As Database
Dim rsCust As Recordset
Dim strSQL As String
Dim nbrRcaTicketId As Long

Set db = CurrentDb

nbrRcaTicketId = (100 + (DCount("*", "RCA_TABLE")))

strSQL = "Select * from RCA_TABLE "
Set rsCust = db.OpenRecordset(strSQL, DB_OPEN_DYNASET)
MsgBox "start of sql string"
strSQL = "INSERT INTO RCA_TABLE "
strSQL = strSQL & "( RCA_TICKET_ID, REPORT_AUTHOR_STAFF_ID, REPORT_START_DATE, REPORT_CLOSE_DATE, REPORTS_PARTICIPANTS_REVIEW, "
strSQL = strSQL & " INCIDENT_TICKET_NUMBER,INCIDENT_SEVERITY_LEVEL,INCIDENT_START_DATE_EVENT,INCIDENT_START_TIME_EVENT,INCIDENT_TIME_SERVICE_DOWN,INCIDENT_END_DATE_EVENT,INCIDENT_TIME_SERVICE_UP,INCIDENT_TIME_UP_TO_CUSTOMER,INCIDENT_OUTAGE_DURATION,INCIDENT_DETECTION_METHOD,INCIDENT_DISCOVERED_BY,INCIDENT_RESP_GROUP,INCIDENT_OWNER,INCIDENT_PRODUCTS_AFFECTED,INCIDENT_CUSTOMERS_AFFECTED, "
strSQL = strSQL & " CHANGE_EXTENT_AFFECTED, CHANGE_CAUSED_BY_CHANGE, CHANGE_RFC_NUMBER, CHANGE_BACK_OUT_INITIATED, CHANGE_RFC_FOLLOWUP_NUMBER, "
strSQL = strSQL & " PROBLEM_OWNER, PROBLEM_CATEGORY, PROBLEM_STATUS, PROBLEM_IMPACT, PROBLEM_URGENCY, "
strSQL = strSQL & " INCIDENT_SECONDARY_TICKET_NBR,INCIDENT_EVENT_DESCRIPTION,PROBLEM_DETAILS,DISCUSSION_DONE_RIGHT,DISCUSSION_PROCEDURAL_ISSUE,DISCUSSION_BETTER_NEXT_TIME,DISCUSSION_PREVENT_PROBLEM,PROBLEM_WWORKAROUND )"
strSQL = strSQL & " ALT_TICKET1,ALT_SYSTEM1,ALT_STATUS1,ALT_DATE_OPENED1,ALT_DATE_CLOSED1,ALT_SEVERITY_LEVEL1,ALT_PRIMARYOWNER1,ALT_LINK1,ALT_TICKET2, "
strSQL = strSQL & " ALT_SYSTEM2,ALT_STATUS2,ALT_DATE_OPENED2,ALT_DATE_CLOSED2,ALT_SEVERITY_LEVEL2,ALT_PRIMARYOWNER2,ALT_LINK2 )"
strSQL = strSQL & " values ('"
strSQL = strSQL & nbrRcaTicketId & "','"
strSQL = strSQL & Me!nbr_REPORT_AUTHOR_STAFF_ID & "','"
strSQL = strSQL & Me!dte_Report_Start_Date & "','"
strSQL = strSQL & Me!dte_Report_Close_date & "','"
strSQL = strSQL & Me!str_Report_Paticipants_In_Review & "','"
strSQL = strSQL & Me!nbr_Incident_Ticket_Number & "','"
strSQL = strSQL & Me!nbr_Incident_Severity_Level & "','"
strSQL = strSQL & Me!dte_Incident_Start_date & "','"
strSQL = strSQL & Me!dte_Incident_Start_Time_Event & "','"
strSQL = strSQL & Me!dte_Incident_Time_Service_Down & "','"
strSQL = strSQL & Me!dte_Incident_End_date & "','"
strSQL = strSQL & Me!dte_Incident_Time_Service_Up & "','"
strSQL = strSQL & Me!dte_Incident_Time_Up_To_Customer & "','"
strSQL = strSQL & Me!nbr_Incident_Outage_Duration & "','"
strSQL = strSQL & Me!nbr_Incident_Detection_Method & "','"
strSQL = strSQL & Me!nbr_Incident_Discovered_By & "','"
strSQL = strSQL & Me!nbr_Incident_Resp_Group & "','"
strSQL = strSQL & Me!str_Incident_Owner & "','"
strSQL = strSQL & Me!str_Incident_Products_Affected & "','"
strSQL = strSQL & Me!str_Incident_Customers_Affected & "','"
strSQL = strSQL & Me!str_Change_Extent_Affected & "','"
strSQL = strSQL & Me!str_Change_Caused_by_Change & "','"
strSQL = strSQL & Me!nbr_Change_RFC_Number & "','"
strSQL = strSQL & Me!str_Change_Back_out_Initiated & "','"
strSQL = strSQL & Me!nbr_Change_RFC_Followup_Number & "','"
strSQL = strSQL & Me!nbr_Problem_Owner & "','"
strSQL = strSQL & Me!nbr_Problem_Category & "','"
strSQL = strSQL & Me!nbr_Problem_Status & "','"
strSQL = strSQL & Me!nbr_Problem_Impact & "','"
strSQL = strSQL & Me!nbr_Problem_Urgency & "','"
strSQL = strSQL & Me!nbr_Incident_Secondary_Ticket_Numbers & "','"
strSQL = strSQL & Me!str_Incident_Event_Description & "','"
strSQL = strSQL & Me!str_Problem_Details & "','"
strSQL = strSQL & Me!str_Discussion_Done_Right & "','"
strSQL = strSQL & Me!str_Discussion_Procedural_Issue & "','"
strSQL = strSQL & Me!str_Discussion_Better_Next_Time & "','"
strSQL = strSQL & Me!str_Discussion_Prevent_Problem & "','"
strSQL = strSQL & Me!str_Problem_WWorkaround & "','"
strSQL = strSQL & Me!nbr_ALT_TICKET1 & "','"
strSQL = strSQL & Me!nbr_ALT_SYSTEM1 & "','"
strSQL = strSQL & Me!nbr_ALT_STATUS1 & "','"
strSQL = strSQL & Me!dte_ALT_DATE_OPENED1 & "','"
strSQL = strSQL & Me!dte_ALT_DATE_CLOSED1 & "','"
strSQL = strSQL & Me!nbr_ALT_SEVERITY_LEVEL1 & "','"
strSQL = strSQL & Me!nbr_ALT_PRIMARYOWNER1 & "','"
strSQL = strSQL & Me!str_ALT_LINK1 & "','"
strSQL = strSQL & Me!nbr_ALT_TICKET2 & "','"
strSQL = strSQL & Me!nbr_ALT_SYSTEM2 & "','"
strSQL = strSQL & Me!nbr_ALT_STATUS2 & "','"
strSQL = strSQL & Me!dte_ALT_DATE_OPENED2 & "','"
strSQL = strSQL & Me!dte_ALT_DATE_CLOSED2 & "','"
strSQL = strSQL & Me!nbr_ALT_SEVERITY_LEVEL2 & "','"
strSQL = strSQL & Me!nbr_ALT_PRIMARYOWNER2 & "','"
strSQL = strSQL & Me!str_ALT_LINK2 & "');"


db.Execute strSQL

MsgBox nbrRcaTicketId & " has been added to the Customer table."

Call ClearControls

rsCust.Close
db.Close

Exit_btn_add_rca_record_Click:
Exit Sub
Err_btn_add_rca_record_Click:
MsgBox Error$
rsCust.Close
db.Close
GoTo Exit_btn_add_rca_record_Click:

End Sub

Code End: