Object vereist fout

[JEPEDEWE]

Ik schrijf:

Private Sub stoppen_Click()
Dim sql As String
Dim TB_dossier As Recordset
sql = "SELECT Memo.* FROM [Memo] WHERE Memo.Code ='" & Left(Forms!patlijst!KODELANG, 8) & "';"
Set TB_dossier = db.OpenRecordset(sql)

bij de lijn Set TB_Dossier krijg ik de foutmelding "Fout 424 tijdens uitvoering Object vereist"

Vraag ik
? sql
dan krijg ik:
Memo.* FROM [Memo] WHERE Memo.Code ='30012015'

als ik deze lijn als sql in "Query maken" invoeg krijg ik perfect wat ik zou moeten hebben.
Wat is er in mijn code fout?

Bedankt
JP

 

[OctaFish]

Als je Option Explicit gebruikt, moet je db ook declareren. Overigens nergens voor nodig, in mijn ogen een overbodige variabele.

 Private Sub stoppen_Click()
Dim sql As String
Dim TB_dossier As DAO.Recordset
sql = "SELECT * FROM [Memo] WHERE Code ='" & Left(Me.KODELANG, 8) & "'"
Set TB_dossier = CurrentDB.OpenRecordset(sql)

 

[JEPEDEWE]

dat is em
bedankt