Good morning all.
I have the following code, but I am coming up with an error in my FROM statement.
Sub CTRL10_7_OnClick(eventObj)
' Submit Button
Dim strSQL, MyConn
' Submit the form to add the new record
Set MyConn = CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\c9dpr\Desktop\GC100 Backend.mdb"
StoreFields
XDocument.UI.Alert(Lockbox)
'SQL statement to run apend query
strSQL = ""
strSQL = strSQL & "INSERT INTO tbl_GC100 (Lockbox, [Cash Deposit Date], [Batch Number])"
strSQL = strSQL & " SELECT @Lockbox, @Cash_Deposit_Date, @Batch_Number"
strSQL = strSQL & " FROM XDocument.DOM.selectSingleNode('dfs:myFields/dfs:dataFields/d:tbl_GC100')"
XDocument.UI.Alert(strSQL)
MyConn.Execute strSQL
MyConn.Close
End Sub
Any assistance would be greatly appreciated.
Thank you, WHEELS