Acsess veri tabanına v.basicte şifre koymak istiyorum.

[SİNELSAN]

Programımda acsess veri tabanını kullanıyorum.Bilgisayarında acsess olan bir başka kullanıcının veri tabanını açamamasını istiyorum.Bunu nasıl yapabilirim.
Birde program sayesinde klasörlere şifre koyma imkanım varmıdır?
Yardımcı olursanız sevinirim.

[selami_32]

visual basic'te DAO 3.51 ile veritabanı oluşturma ve şifre koyma

Dim selami As Database
Dim ahmet As Recordset
Dim kerim As TableDef
Dim alan As Field

dosya = "c:\selami.mdb"
sifre = "selami"

If Dir(dosya) <> "" Then Kill dosya


Set selami = CreateDatabase(dosya, dbLangTurkish & dbEncrypt)

Set kerim = selami.CreateTableDef("TABLO1")

Set alan = kerim.CreateField("ADI", dbText, 15)
alan.AllowZeroLength = True

kerim.Fields.Append alan

Set alan = kerim.CreateField("SOYADI", dbText, 15)
alan.AllowZeroLength = True

kerim.Fields.Append alan


selami.TableDefs.Append kerim

selami.NewPassword "", sifre
selami.Close