Dim schemaTable As New DataTable
        Dim tmpcol As New DataColumn
        oleConnection.ConnectionString = connString
        schemaTable = oleConnection.GetOleDbSchemaTable( _
          OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, TableName})
        'Dim tmp As String = schemaTable.Columns("COLUMN_HASDEFAULT")
        For Each tmpcol In schemaTable.Columns
            'Hier.. auslesen 
        Next