VB中代碼創(chuàng)建數(shù)據(jù)庫(kù)

'先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library，在Form上加個(gè)Command1,粘貼以下代碼：
    Private Sub Command1_Click()
     Dim wrkDefault As Workspace
     Dim dbsNew As Database
     Dim tdfNew As TableDef
     Dim NewDB As Database
     If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
     '{取當(dāng)前目錄的話去掉路徑： If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb")}
     Set wrkDefault = DBEngine.Workspaces(0)
     Set dbsNew = wrkDefault.CreateDatabase("d:\NewDB.mdb", dbLangGeneral, dbEncrypt)
     '{取當(dāng)前目錄的話去掉路徑： Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}
     dbsNew.NewPassword "", "123" '設(shè)置數(shù)據(jù)庫(kù)密碼為123
     Set wrkDefault = Nothing
     Set dbsNew = Nothing
    End Sub