Hola taursoft.
Yo escaparía de hacer lo que quieres mediante un control.
Tienes varias formas de hacerlo por código:
- Con DAO utilizarías algo de este estilo
Dim db1 as Database
Set db1.OpenDatabase("MiBd.mdb"
Dim tbl1= New TableDef
tbl1.Name = "MiTabla"
tbl1.Fields.Append tbl1.CreateField("CampoChar", 10, 10) 'Carácter 10 de longitud
tbl1.Fields.Append tbl.CreateField("CampoLong", 4)
tbl1.Fields.Append tbl.CreateField("CampoShort", 3)
db1.TableDefs.Append tbl1
- Podrías en cualquier caso usar una sentencia SQL de tipo CREATE TABLE
CREATE TABLE MiTabla ([CampoChar] VarChar (10), [CampoLong] Long, [CampoShort] int);
En fin...creo que usar SQL podría ser la mejor opción para lo que pretendes.
Suerte.
