باز كردن بانك داراي پسورد در داخل vb

[zoofa]

با سلام
من يك بانك دارم كه داراي پسورد است
من براي ارتباط بانك با vb از ADODB استفاده كرده ام و connection ساخته ام.
مي خواستم بدانم پسور بانك را به كجاي اين كد اضافه كنم؟
در ضمن در vb.net 2005 برنامه ام را نوشته ام
با تشكر

مدل استفاده شده در پروژه



Dim AA As New ADODB.Connection

Dim StrS As String
StrS = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPath
AA.Open(StrS)
AA.Execute("Insert Into TblBase4 VALUES (" & StrCode & ",'" & StrName & "')")
AA.Close()

AA = Nothing

[amirzazadeh]

با سلام
من يك بانك دارم كه داراي پسورد است
من براي ارتباط بانك با vb از ADODB استفاده كرده ام و connection ساخته ام.
مي خواستم بدانم پسور بانك را به كجاي اين كد اضافه كنم؟
در ضمن در vb.net 2005 برنامه ام را نوشته ام
با تشكر

مدل استفاده شده در پروژه



Dim AA As New ADODB.Connection


Dim StrS As String
StrS = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPath
AA.Open(StrS)
AA.Execute("Insert Into TblBase4 VALUES (" & StrCode & ",'" & StrName & "')")
AA.Close()


AA = Nothing

در موقع ايجاد كانكشن اگر بانك پسورد داشته باشه دات نت پيامي مبني بر اضافه كردن پسورد به انتهاي رشته بدون محافظت ارائه ميده كه اگر yes انتخاب بشه اين كار انجام ميشه.
به صورت دستي هم ميتونين از منوي project>propertyرو انتخاب و بعد در قسمت setting گزينه آخر يعني valueرو كليك كرده و يوزر نيم و پسورد رو اضافه كنين وبعد تست كنين

[davood-ahmadi]

این روش را قبلاً استفاده کرده بودم . ولی هرچه دنبال نمونه اش می گردم، پیداش نمی کنم.
هر چی توی ذهنم بود اینکه این کد پایین را به آخر کدم اضافه می کردم:

"Username=admin;password=100"
یا:

" ;PWD=100"

[zoofa]

با تشكر از شما دوست گرامي مشكل من حل شد
كد را به صورت زير نوشتم
Dim AA As New ADODB.Connection
Dim StrS As String
StrS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ Application.StartupPath + "\Database\Abfa.mdb;Persist Security Info=True;Jet OLEDB:Database Password=MyPassword"
AA.Open(StrS)
AA.Execute("Insert Into TblBase4 VALUES (" & StrCode & ",'" & StrName & "')")
AA.Close()

AA = Nothing