All pastes #567902 Raw Edit

Stuff

public text v1 · immutable
·published 2007-06-15 05:16 UTC
rendered paste body
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