Creación de tabla de programación VB
Si usa programación VB para crear una tabla, use ADOX para implementarla. Debe hacer referencia a la biblioteca de objetos ADOX antes de usarla.
El siguiente código muestra cómo crear una nueva tabla.
Sub CreateTable()
Dim tbl como nueva tabla
Dim cat como nuevo ADOX.Catalog
'Abrir el catálogo.
'Abre el catálogo.
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" amp; p> "Fuente de datos=c:\Archivos de programa\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
tbl.Name = "MiTabla"
tbl.Columns.Append "Columna1", adInteger
tbl.Columns.Append "Columna2", adInteger
tbl.Columns.Append "Columna3", adVarWChar, 50
cat.Tables.Append tbl
End Sub