用ADOX在磁盘上新建一个mdb文件

dim   strSoftPath   as   string
strSoftPath   =   App.Path
If   Mid$(strSoftPath,   Len(strSoftPath),   1)   <>   "\ "   Then   strSoftPath   =   strSoftPath   &   "\ "
--生成strSoftPath形如c:\或c:\abc\，后面一定带有\，如你不想带，可修改上面及下面语句

--引用微软   ADO   Ext.2.7   for   dll   and   Security
--创建数据库和数据表及字段
Private   Sub   Command1_Click()
        CreateDatabase
        CreateTable
        MsgBox   "成功 "
End   Sub
Sub   CreateDatabase()
      Dim   cat   As   New   ADOX.Catalog
      cat.Create   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=c:\new.mdb "
End   Sub

Sub   CreateTable()
      Dim   tbl   As   New   Table
      Dim   cat   As   New   ADOX.Catalog
--Open   the   catalog.
      --   Open   the   Catalog.
      Cat.ActiveConnection   =   _
            "Provider=Microsoft.Jet.OLEDB.4.0; "   &   _
            "Data   Source= "   &   strSoftPath   &   "new.mdb; "     --此处用strSoftPath换了C:\

      tbl.name   =   "MyTable "
      tbl.Columns.Append   "Column1 ",   adInteger
      tbl.Columns.Append   "Column2 ",   adInteger
      tbl.Columns.Append   "Column3 ",   adVarWChar,   50
      cat.Tables.Append   tbl

End   Sub
--检查表是否存在
Dim   cnn1   As   ADODB.Connection
Dim   rstSchema   As   ADODB.Recordset
Dim   strCnn   As   String

Set   cnn1   =   New   ADODB.Connection
strCnn   =   "Provider=sqloledb; "   &   _
"Data   Source=srv;Initial   Catalog=pubs;User   Id=sa;Password=;   "
cnn1.Open   strCnn

Set   rstSchema   =   cnn1.OpenSchema(adSchemaTables)

Do   Until   rstSchema.EOF
Debug.Print   "Table   name:   "   &   _
rstSchema!TABLE_NAME   &   vbCr   &   _
"Table   type:   "   &   rstSchema!TABLE_TYPE   &   vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close