InfoPath / Access 2003 - VBScript SQL (update query)

[Picard012]

Good morning.

I was wondering why I might be getting an error (FROM statement) when I run the following code:

Sub CTRL10_7_OnClick(eventObj)

' Submit Button

Dim strSQL, MyConn

Dim MainAdapter

Set MainAdapter = XDocument.DataAdapters("Main connection")

'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');"

MainAdapter.Command = strSQL

MainAdapter.Query

Thank you,

Picard012