El ejemplo que te pongo crea una base de datos con sql pero en ACCESS.
Sub CreateTableX3()
Dim dbs As Database
Dim Sql As String
' Modifique esta línea para incluir la ruta de acceso a Northwind
' en el equipo.
Set dbs = OpenDatabase("Northwind.mdb")
' Crea una tabla con tres campos y una
' clave principal.
Sql= "CREATE TABLE NewTable " _
& "(FirstName CHAR, LastName CHAR, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"
dbs.Execute Sql
dbs.Close
End Sub
Si la quieres crear en SQL
sql = "CREATE TABLE[Orders] (" + vbCr
sql = sql + "[order_ID] [int] IDENTITY (1, 1) NOT NULL ," + vbCr
sql = sql + "[book_ID] [int] NULL ," + vbCr
sql = sql + "[order_quantity] [int] NULL ," + vbCr
sql = sql + "[cust_ID] [int] NULL ," + vbCr
sql = sql + "[order_purchnum] [nvarchar] (50) COLLATE Latin1_General_CI_AS NULL" + vbCr
sql = sql + ") ON [PRIMARY]" + vbCr
sql = sql + "GO" + vbCr
sql = sql + "ALTER TABLE[Categories] ADD" + vbCr
sql = sql + "CONSTRAINT [PK_tblCategories] PRIMARY KEY CLUSTERED" + vbCr
sql = sql + "(" + vbCr
sql = sql + "[cat_ID]" + vbCr
sql = sql + ") ON [PRIMARY]" + vbCr
sql = sql + "GO"
OgCg.Execute sql 'OgCg es la conexion que se hace para accesar a SQL SERVER