crear base de datos con pass

[cyber_zero]

hola amigos, gracias a este foro pude crear un base d datos de access desde Delphi, pero me pregunto si es posible ponerle contraseña desde el codigo, en este caso el codigo es este

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
 db := CreateOleObject('dao.dbengine.36');
 db := db.CreateDatabase('C:\Program Files\Borland\Delphi7\Projects\proyecto speciales\PIEI.mdb', ';langid=0x040a;cp=1252;country=0');
 db.Execute('create table Inscripcion(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50), grupo char (5), nivel char(2), banco char(15), referencia int)'); // Strings + SQL ...
 db.Execute('create table Alumnobasico(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50) )'); // Strings + SQL ...
 Close;
end;

que fue puesto en este foro antes y agradezco por la aportacion, pero para mi proyeto tambien es necesario poner una contraseña y me preguntaba si alguien sabe como hacer o que codigo necesito poner, de antemano, muchas gracias