Dim cn As New ADODB.Connection
        cn.Open(cDataBase.ConString)
 
        Dim cat As New ADOX.Catalog
        cat.ActiveConnection = cn
 
        Dim table As ADOX.Table = cat.Tables(TabellenName)
        Dim col As ADOX.Column = table.Columns(FeldName)
        Dim y As Integer = col.DefinedSize