App.Path برای ADODB

[vbiman]

در adodc زمانی که می خواستیم به بانک متصل کنیم برای اینکه با تغییر محل برنامه برنامه باز هم کار کند در قسمت ConnectionString به جای آدرس کامل بانک از App.Path استفاده می کردیم حال می شود همین کار را برای Adodb هم انجام داد ؟چگونه؟:گریه:

[اوبالیت به بو]

تویه یه ماژول بنویس:

Public b As ADODB.Recordset
Public a As ADODB.Connection

بعد تویه Form_Load بنویس:


Set a = New ADODB.Connection
a.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bank.mdb"
a.Open
Set b = New ADODB.Recordset
b.Open "Table1", a, adOpenKeyset, adLockPessimistic, adCmdTable