Ozan Hocam, hoşgörünüze sığınarak ek bir soru: VTB dosyasını oluşturma aşamasında şifre belirlemek mümkün mü?
VTB dosyası oluşturmak için:

Dim NewDB As Database
Set NewDB = CreateDatabase(App.Path & "\DATA1.mdb", dbLangGeneral, dbVersion70)

şeklinde kod kullanıyorum.