Help please with .AddNew method 1

[LD1010]

I'm trying to automatically add a new record to a table based on the values of a number of combo box on a form called frmContentsStorageEntry. Following is the code I have so far but when it runs I get an error "Object variable or With block variable not set (Error 91)"

Private Sub SharedStart_AfterUpdate()

Dim db As Database
Dim rec As DAO.Recordset

Set rec = db.OpenRecordset("tblContentsStorage", dbOpenDynaset)
With rec
.AddNew
!FileNumber = Me.CboSharedFileNumber
!StorageVendorID = Me.cboStrorageVendorID
!StorageStarted = Me.SharedStart
!SharedStorage = Me.SharedStorage
!SharedFileNumber = Me.FileNumber
!SharedStart = Me.SharedStart
.Update
End With

End Sub

I'm new at writing code, any help would be much apprciated.

 

[Remou]

You have not assigned anything to db.

Set db=CurrentDB

 

[LD1010]

Thanks Remou, that did the trick, work great.