Private Sub List1_DblClick()
'Datenbank öffnen
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
Dim tabName As String
 
tabName = List1.ListIndex
dbFile = App.Path + "\Daten.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("tabName")
End Sub