Hmmmn
Well I did that but now im getting an error 13 type mismatch Any further suggestions.
Heres the code
Public Function AddRecord()
wcustid = 999
Dim Mydab As DAO.Database, MyRecordset As Recordset
Set Mydab = DBEngine.Workspaces(0).Databases(0)
' Open the table as type recordset
Set...