Thnaks for reply and advise!
I am trying please see below I think I am thru but just a small error on
execution
('error message "ODBC – call failed. (Error 3146))
IF I PUT VALUE INSTEAD OF PARAMETER THEN IT WORKS
'''''''''''''''''''''''''''''' Coding
Dim db As Database, qdf As QueryDef, sqltxt As String
Dim parm1 As String
Set db = DBEngine.Workspaces(0).Databases(0)
Set qdf = db.CreateQueryDef("")
qdf.ReturnsRecords = False
qdf.Connect = "ODBC;DSN=Sql_CADC;Description=CADC SQL
;UID=am\aayub;DATABASE=HistoryData;LANGUAGE=us_english;Trusted_Connection=Yes"
parm1 = "Me!MyTextBox" 'user changes the parameter date
parm1 = "M4MF500001"
sqltxt = "insert into skua (sku,SumOfQtyNum) select sku,sumofqtynum from sku
where sku =" & parm1
qdf.SQL = sqltxt
qdf.Execute 'error message "ODBC – call failed. (Error 3146)", "
qdf.Close
'------------------