创建一个空数据库

Function CreateNormalDB(strPathName As String) As Boolean
% s+ s/ h5 U' C$ A" D' yOn Error GoTo Exit_ERR' E! }' S3 m+ ?) g  \
Dim wrkDefault As Workspace2 [( d2 Z, n4 V) m
Dim NewDB As Database
( x( d: N* I; ?6 A  F/ _* s' L
" O) q* W* x1 M4 |CreateNormalDB = False+ z& Q' |4 j8 G0 C2 s3 _! d7 r& c
Set wrkDefault = DBEngine.Workspaces(0)# \  M; K/ a& I1 _* H# y% ^
If Dir(strPathName)  "" Then Kill strPathName
) j: j/ b3 A1 C9 USet NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral)
1 t( K4 B! p: q  l4 O( |" N1 c, v7 }# u9 h  _( T$ c! a
NewDB.Close
- C' P5 V; m9 Q; C* g+ Q( NSet NewDB = Nothing) h; ^& o0 U" R* `# O1 l
! @' d( r6 l- ~/ z
CreateNormalDB = True: A9 C; n' |: @, l9 f
Exit Function
- E* J6 K5 ~+ B5 M' z
. x" Z5 O  z1 O1 q; Y0 N  
! N7 F4 e4 \6 }, |
& a2 a3 C# o: E* N$ J$ RExit_ERR:9 }. C- o/ V& w1 p, E$ ~1 U" q/ E; M
MsgBox "备份失败！"  vbCrLf  vbCrLf  Err.Description, vbExclamation6 B' H& r' ~! n7 {! r* j# ~
Exit Function1 }9 Y5 O8 i  q$ j
End Function  ; Q3 @6 ~, T/ U# i% l3 x

; |% b3 N5 R2 D0 V8 x8 ]/ `3 T- F! H$ L5 Y'调用时只需提供路径及文件名即可，此函数为备份数据模块的一部份