Private Sub Prozedur1()
 
LKKDB = App.Path & "\LagerKarteiKartenDB.mdb"
Set LKK = Workspaces(0).OpenDatabase(LKKDB, False, False)
Set KarteiKarteTab = LKK.OpenRecordset("Select * from 80113")
 
KarteiKarteTab.MoveFirst
 
Do Until KarteiKarteTab.EOF = True
 
List1.AddItem (KarteiKarteTab("Datum") & Space(4) & KarteiKarteTab("Beleg"))
KarteiKarteTab.MoveNext
 
Loop
 
End Sub
 
___________
Private Sub Form_Load()
Combo2.AddItem ""
Combo2.AddItem "Bearbeiten"
Combo2.AddItem "Hinzufügen"
Combo2.AddItem "Löschen"
 
List1.AddItem "Lagerkarteikarte Nr.: " & Artikelbezeichnung
List1.AddItem "Meldebestand: " & Meldebestand
List1.AddItem "Höchstbestand: " & hoechstbestand
List1.AddItem "Istbestand: " & IstBestand
List1.AddItem _
  "====================================================================="
List1.AddItem "Datum," & Space(5) & "Beleg," & Space(5) & "Liefer oder Kunde," _
& Space(5) & "Bdf. Datum," & Space(7) & "Bdf. Menge," & Space(7) & "Zugang" & _
Space(5) & "Abgang," & Space(5) & "Bestand"
 
dbFile = App.Path & "\Datenbank.mdb"
Set DB = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = DB.OpenRecordset("select * from Warenbestand")
 
Tabelle.MoveFirst
Do Until Tabelle.EOF
Combo1.AddItem Tabelle("ArtNr")
Tabelle.MoveNext
Loop