Option Explicit

   'declareer ADODB connection
   Dim CN As ADODB.Connection

Private Sub cmdLees_Click()
    
    Dim RS As ADODB.Recordset
    
    '>>> create connection and open it <<<

    Set CN = New ADODB.Connection
    CN.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0" & _
        ";Data source = D:\Mijn Documenten\School\2001 - 2002\Databanken 1\Biblio.mdb"
          
    CN.Open
    

    '>>> make recordset wit connection EXECUTE method <<<

    Set RS = CN.Execute("SELECT * FROM Authors")
        
    While Not RS.EOF
        
        lstDatabase.AddItem "Geboortejaar: " & RS.Fields("Year Born") & vbTab _
                    & "Naam: " & RS.Fields("Author")
        
        RS.MoveNext
    
    Wend
End Sub



Private Sub Form_Terminate()
    CN.Close ' Sluit database af
    Set CN = Nothing ' Sluit instantie af
    
End Sub