Public Sub CreateDataBase()
  Dim objcat As adox.Catalog
  Dim objMyTable As New adox.Table
 
  Set objcat = New adox.Catalog
 
  objcat.Create strConnection
  objcat.ActiveConnection = strConnection
 
  With objMyTable
    .Name = "MyTable"
    .Columns.Append "Name", adVarWChar, 20
    .Columns.Append "Address", adVarWChar, 50
    .Columns.Append "City", adVarWChar, 50
    .Columns.Append "ST", adVarWChar, 20
    .Columns.Append "PostalCode", adVarWChar, 20
    .Keys.Append "PrimaryKey", adKeyPrimary, "Name"
  End With
  objcat.Tables.Append objMyTable
 
  Set objMyTable = Nothing
  Set objcat = Nothing
End Sub