Function CreateDataBase(ByVal sPathFile As String, Optional ByVal sPassword As String = vbNullString) As Boolean
' nécessite msadox.dll (Microsoft ADO Ext. 2.7 for DLL and Security)
On Error Resume Next
Dim oCat As New ADOX.Catalog
oCat.Create "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & sPathFile & ";Jet OLEDB:Database Password=" & sPassword & ";Jet OLEDB:Engine Type=5;"
Set oCat = Nothing
CreateDataBase = (Err.Number = 0)
End Function