Visual Basic - Crear BD access

Hola

Tengo que crear una tabla nueva en una BD access cada vez que haga click en un boton, definiendo la estructura de esta, el nombre,......
¿Alquien me puede decir como se crea esto?

Muchas gracias.

mira angel este es un codigo que yo tengo para la creacion de una BD desde el codigo ojala sea lo que ocupas.

mira tengo problemas para enviartelo por aqui te lo mando a tu correo

Si estás utilizando ADO lo puedes hacer con 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

Si usas DAO puedes usar algo asi:

Dim Wsp As Workspace, DB As Database, Tabla As TableDef, Campo As Field
Set Wsp = Workspaces(0)
Set DB = Wsp.CreateDatabase("NombreBaseDeDatos", dbLangGeneral)
Set Tabla = DB.CreateTableDef("NombreTabla")
Set Campo = Tabla.CreateField("NombreCampo", dbText)
Tabla.Fields.Append Campo
DB.TableDefs.Append Tabla

Suerte!