Dim Db As Database
  Dim oTable As TableDef
  Dim oField As Field
  Dim oNode As Node
 
  ' Datenbank öffnen
  Set Db = DBEngine.OpenDatabase("datenbank.mdb")
 
  With TreeView1
    ' alle Tabellen durchlaufen
    For Each oTable In Db.TableDefs
      ' Tabellenname ins TreeView schreiben
      Set oNode = .Nodes.Add(, , oTable.Name, oTable.Name)
 
      ' alle Felder der jeweiligen Tabelle durchlaufen
      ' und als Child-Nodes ins TreeView eintragen
      For Each oField In Db.TableDefs(oTable.Name).Fields
        .Nodes.Add oNode.Index, tvwChild, , oField.Name
      Next 
    Next 
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de