n = 0
Set Db = Workspaces(0).OpenDatabase(Video.CommonDialog1.FileName, False, False)
For Each TabDef In Db.TableDefs
  If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then
    n = n + 1
    Load Option1(n)
    Option1(n).Left = 1500
    Option1(n).Top = n * 500
    Option1(n).Visible = True
    Option1(n).Caption = TabDef.Name
    n1 = 0
    For Each Feld In Tabledef.Fields
      n1 = n1 + 1
      Load Check1((n * 10) + n1)
      Check1((n * 10) + n1).Left = 1500 + (n1 * 600)
      Check1((n * 10) + n1).Top = n * 500
      Check1((n * 10) + n1).Visible = True
      Check1((n * 10) + n1).Caption = Feld.Name
    Next
  End If
Next

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)