示例 :
sub 测试
On Error GoTo Err100
'在当前路径建立名为 新数据库 的数据库
CreateDatabase CurrentProject.Path & "/新数据库", dbLangGeneral
MsgBox " 一切 OK , 数据库建立完成! ", vbInformation
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
end sub