VB Code:
Dim NewDB As ADOX.Catalog
Set NewDB = New ADOX.Catalog
On Error GoTo Err_Exit
CreateDatabase = False 'Added here; If it fails, it will return false
If Dir(DatabaseName, vbArchive + vbHidden + vbReadOnly + vbSystem) = "" Then
NewDB.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Trim(DatabaseName) & _
IIf(Password <> "", ";Jet OLEDBatabase Password=" & Password, "") & "; "
CreateDatabase = True 'If it works, then it returns true
End If
Set NewDB = Nothing
Exit Function
Err_Exit:
CreateDatabase = False
Debug.Print "Error " & Err.Number, Err.Description
Err.Clear
Exit Function