Dim Db As DAO.Database
Dim oRs As DAO.Recordset
 
Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
Set oRs = Db.OpenRecordset("Tabellenname")
If oRs.RecordCount > 0 Then
  Do 
    Label1.Caption = Label1.Caption & oRs.Fields(0) & vbCrLf
    Label2.Caption = Label2.Caption & oRs.Fields(1) & vbCrLf
    Label3.Caption = Label3.Caption & oRs.Fields(2) & vbCrLf
    Label4.Caption = Label4.Caption & oRs.Fields(3) & vbCrLf
 
    oRs.MoveNext
  Loop Until oRs.Eof
End If
oRs.Close
Db.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de