Type mismatch Error 1

[durug]

Hi everybody!

I have this code in the Private Sub cmdAdd_Click() Event:

On Error GoTo Err_cmdAdd_Click
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("Author&quot

and I receive a type mismatch error on the last line.
Does any of you have any idea why?

Thanks,
Durug

 

[Creepers]

It appears you are using Access 2000. If this is the case then you should referrence either MS ADO ext 2.1 Object Library or Microsoft DAO Object Library. Your provided example tells me you are referrencing DAO. Therefore your code should look like this:

Dim db as DAO.Database
Dim lrs as DAO.Recordset

Set db = currentDB()
Set rs = db.OpenRecordset("Authors&quot

 

[durug]

Thanks a lot!!!!