RE:Como puedo crear tablas de access en Visual bas
Además de SQL (CREATE TABLE) como te mencionan en otra respuesta, puedes usar ADOX:
Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.Connection = TuObjetoConnection
Set objTable = New Table
objTable.Name = "MiTabla"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarChar, 50
objCatalog.Tables.Append objTable