InfoPath - Access 2003 - VBScript - SQL (Append Query)

Wheels — Fri, 24 Apr 2009 15:23:48 GMT

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,

WHEELS

Code