✔ ?den Namen der ersten Tabelle einer Datenbank auslesen?

[Fleance]

Hallo
Versuche gerade den Namen der ersten Tabelle einer Datenbank auszulesen und schaffe es einfach nicht. Weiß jemand wie das funktioniert?
mfg


Edit:

Habs nun doch geschafft. Vieleicht weiß jemand noch eine bessere Lösung?

Private Function Tabelle1Anzeigen()

Tabelle1Anzeige = ""

With Db
' Recordset über Tabellen-Schema erstellen
Set TabRs = .OpenSchema(adSchemaTables)

' Recordset durchlaufen und alle Tabellen auflisten
Do Until Tabelle1Anzeige <> ""
If TabRs("TABLE_TYPE") = "TABLE" Then
Tabelle1Anzeige = TabRs("TABLE_NAME")
End If
TabRs.MoveNext
Loop
End With

' Recordset schließen
TabRs.Close
End Function

 

[Nirraven]

Ich versteh zwar nicht, wofür das gut sein könnte, aber ich hab wieder was gelernt

 

[Fleance]

Mache mir einfach eine Datenbank mit einer variablen Anzahl an Tabellen auf. Und damit mein Datagrid nach dem Öffnen nicht leer bleibt brauch ich Daten -> in diesem Fall aus der ersten Tabelle der Datenbank.