Adding new records

Hi,

I have linked tables from a sql server 2005 to Access 2003. I can add any
record manually directly into the table but I am having trouble with the "update" when I add the record from the vb code. I keep
getting a message that ODBC---Call Failed.
Run Time Error '3146'. Then the code breaks at ".Update".
thanks
Al

Dim db As Database, rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblUserLog", dbOpenDynaset,
dbSeeChanges, dbOptimistic)

With rst
.AddNew
![UserID] = Me![SelectUser]
.Update
End With
rst.Close

Jesika,

I have changed the code slightly. When the add task button is pressed the form is supposed to collect the rest of the information for the record. The form now opens and the serial number is added to the database however the rest of the field content on the form does not save

Please Login or Register  to view this content.

On the Form Open of Task I have the following code

Please Login or Register  to view this content.

On the task form I have the following save and close button

Please Login or Register  to view this content.