Imports System.Data.OleDb

Dim oConn As System.Data.OleDb.OleDbConnection
Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=D:\Beispiel.mdb"
 
' Connection herstellen
oConn = New System.Data.OleDb.OleDbConnection(sConn)
oConn.Open()
 
' DB-Schema über Spalten
Dim oTable As DataTable = oConn.GetSchema("Columns")
For Each oRow As DataRow In oTable.Rows
  ' falls es sich um die gesuchte Tabelle handelt, 
  ' jetzt den Feldnamen ausgeben
  If oRow("TABLE_NAME") = "Table1" Then
    Debug.Print(oRow("COLUMN_NAME"))
  End If
Next 
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de