Option Compare Database
Option Explicit

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub knop1_Click()
    MaakVerbinding

    Do While Not rs.EOF
          MsgBox rs!Naam
          rs.MoveNext
    Loop
End Sub

Private Sub MaakVerbinding()
    Set db = CurrentProject.Connection
    rs.Open "tbl", db, adOpenForwardOnly, adLockOptimistic
End Sub