' Datenbank-Tabellen im TreeView anzeigen
Private Sub Form_Load()
  Dim oTable As TableDef
  Dim oParent As Node
 
  ' TreeView löschen
  TreeView1.Nodes.Clear
 
  ' Mainknoten erstellen
  Set oParent = TreeView1.Nodes.Add(, , , CurrentDb.Name)
 
  With CurrentDb
    For Each oTable In .TableDefs
      If Left$(oTable.Name, 4) <> "MSys" Then
        TreeView1.Nodes.Add oParent.Index, tvwChild, , oTable.Name
      End If
    Next
  End With
 
  ' Mainknoten öffnen
  oParent.Expanded = True
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As Object)
  ' Formular öffnen
  If Node.Index > 1 Then
    Select Case Node.Text
      Case "Tabellenname1"
        ' Hier der Code zum Anzeigen des
       ' Formulars für die 1. Tabelle in der DB
 
      Case "Tabellenname2"
        ' Hier der Code zum Anzeigen des
        ' Formulars für die 1. Tabelle in der DB
 
    End Select
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de