Criando banco de dados Access

É isso ai pessoal, tá aqui o código que permite a criação de um Banco de Dados MDB completo ou quase completo através do ADOX.
Para definir os tipos dos campos utilizei as constates que tem no arquivo adovbs.inc na parte de DataTypeEnum Values. Nem todos que testei funcionaram, e também não tive muito tempo para testes mais complexos (infelizmente :(). Sugestões e críticas é só enviar um e-mail. Até mais e boa diversão!!!

'## ATENÇÃO : Não esqueça de incluir o arquivo 'adovbs.inc'   ##

Dim objADOXDatabase
Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")

   '## Cria o banco de dados ##
   objADOXDatabase.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "Data Source=BANCO_DE_DADOS.MDB;" & _
                          "Jet OLEDB:Engine Type=4;" '## Access 97   ##
                          '"Jet OLEDB:Engine Type=5;" '## Access 2000 ##

'## Cria a variável de tabela ##
Dim objADOXTabela1
'## Indica(seta) o Objeto objADOXTabela1 como uma tabela ##
Set objADOXTabela1 = Server.CreateObject("ADOX.Table")

   '## Especifica o nome da tabela ##
   objADOXTabela1.Name = "Tabela1"

   '## Adiciona o 'CAMPO1' como inteiro ##
   objADOXTabela1.Columns.Append "CAMPO1", adInteger
 
   '## Adiciona o 'CAMPO2' como TEXTO(VarChar), limitando-o a 8 caracteres ##
   objADOXTabela1.Columns.Append "CAMPO2", adVarWChar,8

   '## Adiciona o 'CAMPO3' como TEXTO(Char), limitando-o a 2 caracteres ##
   objADOXTabela1.Columns.Append "CAMPO3", adWChar, 2

   '## Adiciona o 'CAMPO4' como "Booleano" ##
   objADOXTabela1.Columns.Append "CAMPO4", adBoolean

   '## Adiciona o 'CAMPO5' como Data ##
   objADOXTabela1.Columns.Append "CAMPO5", adDate, 1
  
   '## Indica o 'CAMPO1' como chave primária ##
   objADOXTabela1.Keys.Append "PK_CAMPO1", 1, "CAMPO1"

   '## Adiciona a tabela ao Banco de Dados ##
   objADOXDatabase.Tables.Append (objADOXTabela1)

'## Destroi os Objetos ##
Set objADOXTabela1 = Nothing
Set objADOXDatabase = Nothing

Esta matéria foi postada originalmente no ASP4Developers por Rafael "M4yers" Rossi (site), que na época era "...". Hoje, vai saber...