RE:Crear tablas en access 2000
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