Public Function ColumnsFromMDBTable(ByVal sMDBFile As String, _
  ByVal sTable As String) As ArrayList
 
  Dim oColumns As New ArrayList
  dim sConn as string
 
  ' Fehlerbehandlung aktivieren
  Try
    ' Connection-String zusammenstellen
 
 
    if sMDBFile.substring(len(sMDBFile)-3,3 ="mdb" then
       sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & sMDBFile
    else
        if sMDBFile.substring(len(sMDBFile)-5,5 ="accdb" then
           sConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & sMDBFile     hier nimmt er die richtige DB
    Dim 
 
    Using oConn As New OleDbConnection(sConn)
 
      ' Connection zur Access-DB herstellen
      oConn.Open()
 
      ' DB-Schema über alle Spalten
      Dim oTable As DataTable = oConn.GetSchema("Columns") Hier ist die _
        falsche DB
      For Each oRow As DataRow In oTable.Rows
        ' falls es sich um die gesuchte Tabelle handelt, 
        ' jetzt den Feldnamen ausgeben
        If oRow("TABLE_NAME") = sTable Then
          oColumns.Add(oRow("COLUMN_NAME"))
        End If
      Next
 
    End Using
 
  Catch ex As Exception
    ' Bei Fehler, Hinweis anzeigen
    MsgBox("Fehler beim Ermitteln der Access-Tabellenfelder!" & vbCrLf & _
      ex.Message, MsgBoxStyle.Exclamation)
  End Try
  Return oColumns
End Function]

Dim sMDBFile As String = "c:\test\vb.accdb"
Dim oColumns As ArrayList = ColumnsFromMDBTable(sMDBFile, "tblAdressen")