Ik heb onderstaande code. De loop (MoveNext) werkt niet. Ik zie steeds het eerste record. Wat doe ik fout?
Code:
Option Compare Database
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Customer")
For i = 0 To rs.RecordCount - 1
varX = DLookup("[Achternaam]", "tbl_Customer", "[CustomerID]")
Debug.Print varX
rs.MoveNext
Next i
rs.Close
Set rs = Nothing
db.Close
End Sub