'Datenbank-Variablen
Dim Db As Database
Dim dbFile As String
Dim rs As Recordset
 
dbFile = App.Path + "\Datenbank.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
'Datenbanktabelle festlegen
Set rs = Db.OpenRecordset("Tabelle")
 
rs.AbsolutePosition = lstBox.ListIndex - 1