Como yo soy un chico de palabra aqui estoy de nuevo cumpliendo con lo prometido. Solo e enonctrado esto en pagina alemanas, la verdad no se que significa lo de ADOX pero si algien lo sabe que lo comparta. Espero que este ejemplo sirva de ayuda:
ADOXCatalog.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb';
ADOXCatalog.Open;
ADOXTable.CreateNew('Country');
ADOXColumn.CreateNew('MyField', adVarWChar, 20);
ADOXColumn.ADOXColumn.ParentCatalog := ADOXCatalog.ADOXCatalog;
ADOXProperty.OpenExisting(ADOXColumn, 'Jet OLEDB:Allow Zero Length');
ADOXProperty.Value := True;
ADOXColumn.AppendTo(ADOXTable);
ADOXTable.AppendTo(ADOXCatalog);
¿Está claro no?
jejeje