久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　Function CreateNormalDB(strPathName As String) As Boolean

　　On Error GoTo Exit_ERR

　　Dim wrkDefault As Workspace

　　Dim NewDB As Database　　

　　CreateNormalDB = False

　　Set wrkDefault = DBEngine.Workspaces(0)

　　If Dir(strPathName) <> "" Then Kill strPathName

　　Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral)　　

　　NewDB.Close

　　Set NewDB = Nothing

　　CreateNormalDB = True

　　Exit Function

　　Exit_ERR:

　　MsgBox "備份失??！" & vbCrLf & vbCrLf & Err.Description, vbExclamation

　　Exit Function

　　End Function　　

　　'調(diào)用時(shí)只需提供路徑及文件名即可，此函數(shù)為備份數(shù)據(jù)模塊的一部份