Public Function GetSchema(ByVal s_Table As String) As String()
        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
                    For Each col As DataColumn In oTable.Columns
                        i += 1
                        If IsDBNull(oRow(i)) Then
                            oColumns.Add(" - " & i.ToString("00") & " - " & _
                              col.ColumnName & "= DBNull")
                        Else
                            oColumns.Add(" - " & i.ToString("00") & " - " & _
                              col.ColumnName & "=" & CStr(oRow(i)))
                        End If
                    Next
                    oColumns.Add(" - ")
                End If
            Next
            oConn.Close()
        End Using
        GetSchema = CType(oColumns.ToArray(GetType(String)), String())
    End Function