Visual Basic - Crear base de datos con contraseña

el siguiente es el código que utilizo para crear una base de datos, pero no se como hacer para crearla con contraseña. ????????

Dim tbl1 As ADOX.Table
Dim cat1 As ADOX.Catalog
Dim idx As ADOX.Index
Dim col As ADOX.Column

Private Sub Form_Load()

' Con el proveedor 4.0 el autoincremento no da error.

sProvider = "Microsoft.Jet.OLEDB.4.0"

pathBase = App.Path & "\Base de Datosx.mdb"

' Para access 2000.

sProviderDes = "Jet OLEDB:Engine Type=5;"

' Crear la base de datos.

Set cat1 = New ADOX.Catalog

cat1.Create "Provider=" & sProvider & ";" & _
"Data Source=" & pathBase & ";" & sProviderDes

Set tbl1 = New ADOX.Table

' Abrir el catálogo.

cat1.ActiveConnection = _
"Provider=" & sProvider & ";" & _
"Data Source=" & pathBase & ";"
'
' Se crea la tabla
'
'
cat1.Tables.Append tbl1
'
Set tbl1 = Nothing
Set cat1 = Nothing

end sub

Agrega a tu cadena de conecciòn el siguiente parametro

cat1.Create "Provider=" & sProvider & ";" & _
"Data Source=" & pathBase & ";" & sProviderDes & _
";Jet OLEDB:Database Password=LACONTRASEÑA"