Sub Doehet()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Klant", dbOpenTable)
    rs.Index = "ID"
    rs.Seek "=", 610
    'altijd checken of het record gevonden is
    'wordt een record niet gevonden, dan is de positie van de record-pointer onbepaald
    'als dat een probleem moest zijn, kunt u altijd de record-pointer terug naar een gekende positie brengen
    'met movefirst of movelast of seek naar een bekende positie
    If rs.NoMatch Then
       Debug.Print "Niet gevonden"
       rs.MoveFirst
    Else
       Debug.Print rs!id, rs!naam
    End If
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub