Dim ws As Workspace
Dim db As Database

Set ws = DBEngine.Workspaces(0)
'substitute Password with the desired password
Set db = ws.CreateDatabase("test.mdb", dbLangGeneral & ";pwd=Password")