I am accessing an Oracle database using and Oracle ODBC client. Apparently if I have more then 40 columns the ODBC becomes a bottleneck and it closes the connection. So I broke up the 57 column table into two tables. Now the problem I am having is updating two tables at the same time. Here is my code:

Private Sub btn_add_rca_record_Click()
On Error GoTo Err_btn_add_rca_record_Click



Dim db As Database, rsCust As Recordset, strSQL As String, nbrRcaTicketId As Long
Dim dbd As Database, rsCustd As Recordset, strSQLd As String

Set db = CurrentDb

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

strSQL = "Select * from RCA_TABLE "

Set rsCust = db.OpenRecordset(strSQL, DB_OPEN_DYNASET)

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,INC IDENT_START_DATE_EVENT,INCIDENT_START_TIME_EVENT,I NCIDENT_TIME_SERVICE_DOWN,INCIDENT_END_DATE_EVENT, INCIDENT_TIME_SERVICE_UP,INCIDENT_TIME_UP_TO_CUSTO MER,INCIDENT_OUTAGE_DURATION,INCIDENT_DETECTION_ME THOD,INCIDENT_DISCOVERED_BY,INCIDENT_RESP_GROUP,IN CIDENT_OWNER,INCIDENT_PRODUCTS_AFFECTED,INCIDENT_C USTOMERS_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_EVENT_DESCRIPTION,PROBLEM_DETAILS,DISCUSS ION_DONE_RIGHT,DISCUSSION_PROCEDURAL_ISSUE,DISCUSS ION_BETTER_NEXT_TIME,DISCUSSION_PREVENT_PROBLEM,PR OBLEM_WWORKAROUND)"
strSQL = strSQL & " values ('"
strSQL = strSQL & nbrRcaTicketId & "','"
strSQL = strSQL & Me!nbr_REPORTAUTHORSTAFFID & "','"
strSQL = strSQL & Me!dte_ReportStartDate & "','"
strSQL = strSQL & Me!dte_ReportClosedate & "','"
strSQL = strSQL & Me!str_ReportPaticipantsInReview & "','"
strSQL = strSQL & Me!nbr_IncidentTicketNumber & "','"
strSQL = strSQL & Me!nbr_IncidentSeverityLevel & "','"
strSQL = strSQL & Me!dte_IncidentStartdate & "','"
strSQL = strSQL & Me!dte_IncidentStartTimeEvent & "','"
strSQL = strSQL & Me!dte_IncidentTimeServiceDown & "','"
strSQL = strSQL & Me!dte_IncidentEnddate & "','"
strSQL = strSQL & Me!dte_IncidentTimeServiceUp & "','"
strSQL = strSQL & Me!dte_IncidentTimeUpToCustomer & "','"
strSQL = strSQL & Me!nbr_IncidentOutageDuration & "','"
strSQL = strSQL & Me!nbr_IncidentDetectionMethod & "','"
strSQL = strSQL & Me!nbr_IncidentDiscoveredBy & "','"
strSQL = strSQL & Me!nbr_IncidentRespGroup & "','"
strSQL = strSQL & Me!str_IncidentOwner & "','"
strSQL = strSQL & Me!str_IncidentProductsAffected & "','"
strSQL = strSQL & Me!str_IncidentCustomersAffected & "','"
strSQL = strSQL & Me!str_ChangeExtentAffected & "','"
strSQL = strSQL & Me!str_ChangeCausedbyChange & "','"
strSQL = strSQL & Me!nbr_ChangeRFCNumber & "','"
strSQL = strSQL & Me!str_ChangeBackoutInitiated & "','"
strSQL = strSQL & Me!nbr_ChangeRFCFollowupNumber & "','"
strSQL = strSQL & Me!nbr_ProblemOwner & "','"
strSQL = strSQL & Me!nbr_ProblemCategory & "','"
strSQL = strSQL & Me!nbr_ProblemStatus & "','"
strSQL = strSQL & Me!nbr_ProblemImpact & "','"
strSQL = strSQL & Me!nbr_ProblemUrgency & "','"
strSQL = strSQL & Me!str_IncidentEventDescription & "','"
strSQL = strSQL & Me!str_ProblemDetails & "','"
strSQL = strSQL & Me!str_DoneRight & "','"
strSQL = strSQL & Me!str_ProceduralIssue & "','"
strSQL = strSQL & Me!str_BetterNextTime & "','"
strSQL = strSQL & Me!str_PreventProblem & "','"
strSQL = strSQL & Me!str_ProblemWorkaround & "');"

db.Execute strSQL
rsCust.Close
db.Close

Set dbb = CurrentDb
Set rsCustb = dbb.OpenRecordset(strSQLB, DB_OPEN_DYNASET)
strSQLB = "Select * from RCA_SECONDARY_TICKETS "

strSQLB = "INSERT INTO RCA_SECONDARY_TICKETS "
strSQLB = strSQLB & "( RCA_TICKET_ID, ALT_TICKET1,ALT_SYSTEM1,ALT_STATUS1,ALT_DATE_OPENE D1,ALT_DATE_CLOSED1,ALT_SEVERITY_LEVEL1,ALT_PRIMAR YOWNER1,ALT_LINK1,ALT_TICKET2, "
strSQLB = strSQLB & " ALT_SYSTEM2,ALT_STATUS2,ALT_DATE_OPENED2,ALT_DATE_ CLOSED2,ALT_SEVERITY_LEVEL2,ALT_PRIMARYOWNER2,ALT_ LINK2 )"
strSQLB = strSQLB & " values ('"
strSQLB = strSQLB & Recordid & "','"
strSQLB = strSQLB & Me!nbr_TICKET1 & "','"
strSQLB = strSQLB & Me!nbr_SYSTEM1 & "','"
strSQLB = strSQLB & Me!nbr_STATUS1 & "','"
strSQLB = strSQLB & Me!dte_DATEOPENED1 & "','"
strSQLB = strSQLB & Me!dte_DATECLOSED1 & "','"
strSQLB = strSQLB & Me!nbr_SEVERITYLEVEL1 & "','"
strSQLB = strSQLB & Me!nbr_PRIMARYOWNER1 & "','"
strSQLB = strSQLB & Me!str_LINK1 & "','"
strSQLB = strSQLB & Me!nbr_TICKET2 & "','"
strSQLB = strSQLB & Me!nbr_SYSTEM2 & "','"
strSQLB = strSQLB & Me!nbr_STATUS2 & "','"
strSQLB = strSQLB & Me!dte_DATEOPENED2 & "','"
strSQLB = strSQLB & Me!dte_DATECLOSED2 & "','"
strSQLB = strSQLB & Me!nbr_SEVERITYLEVEL2 & "','"
strSQLB = strSQLB & Me!nbr_PRIMARYOWNER2 & "','"
strSQLB = strSQLB & Me!str_LINK2 & "');"


dbb.Execute strSQLB

rsCustb.Close
dbb.Close


Exit_btn_add_rca_record_Click:

Exit Sub

Err_btn_add_rca_record_Click:
MsgBox Error$
GoTo Exit_btn_add_rca_record_Click:

End Sub