Not enough arguments...?

[L4serK!LL]

    Dim RST2 As Recordset
    Set RST2 = CurrentDb.OpenRecordset("SELECT * FROM Stopcode", dbOpenDynaset)
    RST2.MoveLast
    Do
        If (RST2("ID") = Me![ID]) Then
            If (RST2("Krediet") = 1 Or RST2("Stopcode") = 1) Then
                MsgBox "Deze klant dient CASH te betalen! " & IIf(RST2("Veld90") <> "", "(" & RST2("Veld90") & ")", "")
            End If
            Exit Do
        End If
        RST2.MovePrevious
    Loop While (Not RST2.BOF)
    RST2.Close

when running this piece of code I get an error on the 'OpenRecordset' line saying "Not enough arguments. Expected number of arguments: 1." When leaving out the 'dbOpenDynaset' the same error occurs...

 

[crosmill]

this works for me

Dim db As Database
Dim strSQL As String
Dim RST2 As Recordset

Set db = CurrentDb()

strSQL = "SELECT * FROM Stopcode"

Set RST2 = db.OpenRecordset(strSQL, dbOpenDynaset, dbConsistent, dbOptimistic)

Good luck

 

[L4serK!LL]

I get the same error on the OpenRecordset line than before after replacing my code with yours so the problem remains

Other ideas?