Set cmd = New adodb.Command
With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "INSERT INTO tblExpense ( LargeIron, LotArrivalID, OperationID, ManufactureID, ArrivalID ) " & _
"VALUES (" & strLargeManufacture & ", " & longRST & ", 11, " & longManufacture & ", " & longRSTArrival & ")"
.Execute
End With
|