Invalid use of property

[Guest]

Dim db As DAO.Database
Dim records As DAO.Recordset
Dim strSQL As String
db = CurrentDb
strSQL = "SELECT baanid FROM tennisbaan"
records = db.OpenRecordset(strSQL, dbOpenSnapshot)
Do Until records.EOF
Text0 = records![baanid]
records.MoveNext
Loop

It gives me an error on the 'db = CurrentDb' line saying 'invalid use of
property'.
I dont know what hey mean with it as im only using examples (mostly from
this site).

Maybe someone knows what i'm doing wrong.

 

[Craig Alexander Morrison]

Martijn you need to use the Set statement when assigning this object.

Set db = CurrentDb