Do Until RS.EOF
      If RS("TABLE_TYPE") = "TABLE" Then
        '-------------------------------------------------
        'Hier sollten dann die Tabellen Namen in ein Menue
        'als Untermenue Punkte gesetzt werden
        'sind 4-6 je nachdem welche Datenbank geöffnet ist
        '-------------------------------------------------
        List2.AddItem RS("TABLE_NAME")
        'Combo1.AddItem RS("TABLE_NAME")
      End If
      RS.MoveNext
    Loop