ok does anyone know waht is wrong with this function?

Public Function CreateDatabase(DatabaseName As String, Optional Password As String = "") As Boolean

Dim NewDB As ADOX.Catalog
Set NewDB = New ADOX.Catalog

On Error GoTo Err_Exit

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
End If

Set NewDB = Nothing
CreateDatabase = True

Exit Function
Err_Exit:
CreateDatabase = False
Debug.Print "Error " & Err.Number, Err.Description
Err.Clear
Exit Function

End Function