Visual Basic - PROBLEMAS con Create Table

Hola

Quiero crear una tabla nueva al hacer click en un boton, y dejarla en una BD (ventas) existente.
Hago lo siguiente:

Create Table(nombre)
codigo C(6)
modelo C(10)
descripcion C(75)
cantidad N
valor C(20)
ventas.TableDefs.Append.nombre
ventas.TableDefs.Refresh

pero no funciona, nombre es una variable, que coje el nombre de la nueva tabla mediante un inputbox (no se si eso es valido)

¿Como puedo lograr que esto funcione?

GRACIAS

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