Public Sub db_waffenbuch_lesen()
 
    Dim db As Database
    Dim tabelle1 As Recordset
    Dim dbFile As String
 
    dbFile = App.Path & "\daten\datenbanken\waffenbuch.mdb"
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set tabelle1 = db.OpenRecordset("Waffenbuch")
 
    If tabelle1.RecordCount > 0 And Not tabelle1.BOF Then
 
        tabelle1.MoveFirst
 
        Do While Not tabelle1.EOF
 
         With frmWaffenbuch.ListView1.ListItems.Add(, , tabelle1( _
           "ArtikelNr").Value)
            .SubItems(1) = tabelle1("LieferantenNr")
	    usw.
 
         End With
            tabelle1.MoveNext
        Loop
        tabelle1.Close
    End If
    db.Close
    Set tabelle1 = Nothing
End Sub