...
..
.
Select Case Button.Index
 
Case 1
'Datenbank auswählen
CommonDialog1.Filter = " Datenbank (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
 
'Datenbank öffnen
Set Db = Workspaces(0).OpenDatabase(Video.CommonDialog1.FileName, False, False)
 
'Tabelle raussuchen
For Each TabDef In Db.TableDefs
If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then
    n = n + 1
    Load Option1(n)
    Set Tabelle = Db.OpenRecordset(TabDef.Name)
    Option1(n).Caption = TabDef.Name
    opt = Option1(n).Caption
End If
Next
 
' Optionbutton löschen
For i = 1 To i = n
Unload Option1(i)
Next
 
 
'Datenbank füllen
SQL = "SELECT * FROM " + opt
Data1.DatabaseName = Video.CommonDialog1.FileName
Set Tb = Db.OpenRecordset(SQL)
Data1.RecordSource = SQL
Data1.Refresh
 
...
....
..

Max = r - 1
 
Video.Label2.Caption = Video.Data1.Recordset.AbsolutePosition + 1 & " / " & Max