ربط البرنامج بقاعدة بيانات محمية برقم سري

أريد ربط البرنامج بقاعدة بيانات محمية برقم سري

وضعت الكود التالي:

Dim Connect As String

Dim FileSource As String

FileSource = App.Path & "\mydb.mdb"

Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source= " & FileSource & ""

Adodc1.ConnectionString = Connect

Adodc1.RecordSource = "mydata"

Adodc1.Refresh

DataEnvironment1 .Connection1.ConnectionString = Connect

المطلوب أين أضع كلمة السر بالنسبة ل:

Adodc1

DataEnvironment1

شكرا مسبقا