欧美久久天天综合香蕉伊,h片在线免费观看,九九欧美,欧美1区2区3区,日本在线不卡一区,国产视频久久久,91久久久久久久

　　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ù)模塊的一部份