Public Function GetSchema(ByVal s_Table As String) As ArrayList
        Dim i As Integer = -1
        Dim oColumns As New ArrayList
        Using oConn As New OleDbConnection(GetConnString(DbPfad))
            ' Connection zur Access-DB herstellen
            oConn.Open()
            ' DB-Schema über alle Spalten
            Dim oTable As DataTable = oConn.GetSchema("Columns")
            For Each oRow As DataRow In oTable.Rows
                If oRow("TABLE_NAME").ToString.StartsWith("MSys") Then
                Else
                    i = -1
                    Do
                        i += 1
                        Try
                            If IsDBNull(oRow(i)) Then
                            Else
                                oColumns.Add(" - " & i.ToString("00") & " " & _
                                  CStr(oRow(i)))
                                ' mit oRow(i) bekomme ich hier den Inhalt
                                ' aber wie heißt die Spalte-i
                                ' Spalte 2 - "TABLE_NAME"
                                ' Spalte 3 - "COLUMN_NAME" 
                                ' ?? Spalte 6 - "ORDINAL ???"
                                ' ?? Spalte 13 - "MAXWIDTH ???"
                                ' ??
                            End If
                        Catch ex As Exception
                            ' weil ich nicht weis, wie viele Spalten in der 
                            ' DataRow sind
                            ' bei 28 ist Schluss
                            oColumns.Add(ex.Message)
                            Exit Do
                        End Try
                    Loop
                End If
 
            Next
            oConn.Close()
        End Using
 
        GetSchema = oColumns
    End Function