Dim Db As Database
Dim Rs As Recordset
 
Set Db = DBEngine.OpenDatabase(App.Path + "\db.mdb")
Set Rs = Db.OpenRecordset("SELECT tab_haupt.titel From tab_haupt ORDER BY" & _
  "tab_haupt.titel;")
 
'listenfeld Füllen
List1.Clear
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF    
    List1.AddItem Rs(0) 
    Rs.MoveNext
  Loop
End If

Set Db = DBEngine.OpenDatabase(App.Path + "\db.mdb")
Set Rs = Db.OpenRecordset("SELECT * From tab_haupt ORDER BY tab_haupt.titel;")
 
nIndex = User.List1.ListIndex
 
Rs.MoveFirst
Rs.Move nIndex 
 
Me.Titel.Caption = Rs("Titel")
...