Таблица не сохраняется в Access с помощью runql

Question

письменный запрос выполняется успешно без ошибок, но данные не сохраняются. Table_StockList - это таблица, не знаю, где я делаю ошибку. любезно помогите.

Dim sid As String
Dim pnumber As String
Dim pname As String
Dim pmake As String
Dim pmodel As String
Dim phsn As String
Dim pdop As Date
Dim ppp As Currency
Dim pstatus As String
Dim psp As Currency
Dim paqty As Integer
Dim totalqty As Integer
Dim pinvoice As Attachment


sid = Me.Stock_ID.Value
pnumber = Me.Part_No.Value
pname = Me.Product_Name.Value
pmake = Me.Make.Value
pmodel = Me.Model.Value
phsn = Me.HSN.Value
pdop = Me.curpurchasedate.Value
ppp = Me.Purchase_Price_dr_.Value
pstatus = Me.Status.Value
psp = Me.Selling_price_cr_.Value
paqty = Me.availqty.Value
totalqty = Me.totalqty.Value
pinvoice = Me.Invoice
'Me.Recordset.MoveLast
DoCmd.RunCommand acCmdRecordsGoToLast

DoCmd.RunSQL "INSERT INTO Table_StockList ([Stock ID],[Part No],[Product Name],Make,Model,HSN,[Date of Purchase],Status,[Selling price(cr)],[Available QTY],[Total QTY])" & _
"VALUES('" & sid & "','" & pnumber & "','" & pname & "','" & pmake & "','" & pmodel & "','" & phsn & "','" & pdop & "','" & ppp & "','" & pstatus & "','" & psp & "','" & paqty & "','" & totalqty & "','" & pinvoice & "' )"