Public Function ReadAllMDBTablesFields(Optional ByVal bSkipSystemTables As _
  Boolean = True) As ArrayList
        Dim aNames As New ArrayList
        Dim aTables As New ArrayList
        Dim aColumns As New ArrayList
        Dim sTable As String, sColumn As String
        Dim oConn As System.Data.OleDb.OleDbConnection = Nothing
        Try
            Dim sConn As String = GetConnString()
            ' Connection zur Access-DB herstellen
            oConn = New OleDbConnection(sConn)
            oConn.Open()
            Dim oTTable As DataTable = oConn.GetSchema("Tables")
            For Each oTRow As DataRow In oTTable.Rows
                If Not bSkipSystemTables OrElse oTRow("TABLE_TYPE").ToString = _
                  "TABLE" Then
                    sTable = oTRow("TABLE_NAME").ToString
                    aNames.Add(sTable)
                    Dim oCTable As DataTable = oConn.GetSchema("Columns")
                    For Each oCRow As DataRow In oCTable.Rows
                        If oCRow("TABLE_NAME").ToString = sTable Then
                            sColumn = "   " & oCRow("COLUMN_NAME").ToString
                            aNames.Add(sColumn)
                        End If
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox("Fehler beim Ermitteln der Access-Tabellen!" & vbCrLf & _
              ex.Message, MsgBoxStyle.Exclamation)
        Finally
            If oConn IsNot Nothing Then oConn.Close()
        End Try
        Return aNames
    End Function