SQL Update In Excel VB Script Fails

Question

How do I perform an update statement in Excel using VB Script? I get a General ODBC Error when attempting to issue the SQL statement in VB Script below:
(Assume that all of the variables in the script below have already been defined.)
Sheets("Variables").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=ppg4;UID=apps;PWD=apps;DBQ=PPG4;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;NUM" _
), Array("=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;")), Destination _
:=Range("A2"))
.CommandText = Array( _
"UPDATE APPS.TEST_TITLE_TABLE TEST_TITLE_TABLE" _
"SET TEST_TITLE_TABLE.BUCKET='" & Bucket & "', TEST_TITLE_TABLE.SEVERITY='" & Severity & "' " _
"TEST_TITLE_TABLE.STATUS ='" & Status & "', TEST_TITLE_TABLE.SUB_DATE = '" & Actual_Date & "' " _
"TEST_TITLE_TABLE.TARAGET_DATE='" & Target_Date & "', TEST_TITLE_TABLE.USER_SUB='" & User_ID & "' " _
"TEST_TITLE_TABLE.LOAD = '" & Load & "', TEST_TITLE_TABLE.MR_SR = '" & MR_SR & "', TEST_TITLE_TABLE.NOTES = '" & Notes & "'" _
"WHERE TEST_TITLE_TABLE.RELEASE = '" & Release & "' AND TEST_TITLE_TABLE.FEATURE_NUM = '" & Feature & "'" _
"AND TEST_TITLE_TABLE.DOC_TITLE = '" & Doc_Title & "'" _
.Name = "Query from ppg4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Answer 1

How do I perform an update statement in Excel using VB Script? I get a General ODBC Error when attempting to issue the SQL statement in VB Script below:
(Assume that all of the variables in the script below have already been defined.)
Sheets("Variables").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=ppg4;UID=apps;PWD=apps;DBQ=PPG4;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;NUM" _
), Array("=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=0;")), Destination _
:=Range("A2"))
.CommandText = Array( _
"UPDATE APPS.TEST_TITLE_TABLE TEST_TITLE_TABLE" _
"SET TEST_TITLE_TABLE.BUCKET='" & Bucket & "', TEST_TITLE_TABLE.SEVERITY='" & Severity & "' " _
"TEST_TITLE_TABLE.STATUS ='" & Status & "', TEST_TITLE_TABLE.SUB_DATE = '" & Actual_Date & "' " _
"TEST_TITLE_TABLE.TARAGET_DATE='" & Target_Date & "', TEST_TITLE_TABLE.USER_SUB='" & User_ID & "' " _
"TEST_TITLE_TABLE.LOAD = '" & Load & "', TEST_TITLE_TABLE.MR_SR = '" & MR_SR & "', TEST_TITLE_TABLE.NOTES = '" & Notes & "'" _
"WHERE TEST_TITLE_TABLE.RELEASE = '" & Release & "' AND TEST_TITLE_TABLE.FEATURE_NUM = '" & Feature & "'" _
"AND TEST_TITLE_TABLE.DOC_TITLE = '" & Doc_Title & "'" _
.Name = "Query from ppg4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With