国产黄色免费网站,人人干人人干人人干,免费大黄网站在线看,国产情侣一区二区三区,99精品国产福利免费一区二区,国产亚洲成归v人片在线观看,伊人88

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