Visual Basic - Crear tablas en access 2000

Necesito crear tablas en una base de datos access 2000 (ADO), gracias por su ayuda

Una forma es que CREATE TABLE nombreTabla (NombreCampo TipoCampo ...) ejecutandola desde el objeto Connection.

Otra forma es con ADOX:

Dim objCatalog As Catalog, objTable As Table

Set objCatalog = New Catalog

Set objCatalog.ActiveConnection = TuObjetoConnection

objTable.Name = "TablaNueva"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarWChar, 50

objCatalog.Tables.Append objTable