Databese'yi şifrelemek

Private Sub Form_Load()
With Data1 ' Veri tabanı tanımları
.DatabaseName = "referans.mdb"
.RecordSource = "full"
.Connect = ";Pwd=eski"
.*******
End With
End Sub

Private Sub Command1_Click() ' Şifre değiştir
Data1.Database.NewPassword "eski", "yeni"
End Sub