Dim Db As Database
Dim Rs As Recordset
Dim Counter As String
 
 
Set Db = DBEngine.OpenDatabase(App.Path + "\db.mdb")
Set Rs = Db.OpenRecordset("SELECT * From tab_haupt ORDER BY tab_haupt.titel;")
 
 
Counter = Rs.RecordCount
 
 
List1.Clear
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF
    List1.AddItem Rs(0)     
    List1.ItemData(List1.NewIndex) = Rs(ID)
    Rs.MoveNext                    
  Loop                             
End If
 
Rs.Close
Db.Close