باز کردن بانک پسورد دار

[alicomputer]

با عرض سلام و خداقوت به کسانی که جواب سوال های ما را می دهند
من برنامه ام را نوشته ام و تمام کرده ام بعد از تموم شدن برنامه یادم افتاد که روی بانک نرم افزارم پسورد بگذارم ولی نمی دونم تو وی بی چطوری بانک با پسورد را باید باز کنم ، روش غیر مستقیم را می دونم ولی من تو برنامه ام از روش مستقیم از بانک استفاده کردم. من در برنامه ام از data استفاده کردم و حالا اگه جواب سوال من را می دونید به من جواب بدید.
در ضمن بانکم را از اکسس خود وی بی ساختم. و پسورد را با اکسس 2000 گذاشتم.

Data1.DatabaseName = App.Path & "\data\bank.mdb"
در ضمن کدی غیر از این کد می خوام

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase(App.Path & "\db.mdb", False, False, ";pwd=alicomputer")
Set rs = db.OpenRecordset("SELECT * FROM Sample")
MoveData (rs)

[parselearn]

'Load Ado
ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PDo.mdb;Persist Security Info=False;Jet OLEDB:Database Password = PASS"
ado.RecordSource = "SELECT * FROM Farsi"
ado.Refresh
'End Load Ado

[alicomputer]

کد برای کار با data می خوام نه برای adodc

[vb_man]

فکر می کنم با این کد کارت راه بیوفت
Adodc1.CommandType = adCmdTable Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Jet OLEDB:Database Password="password";Persist Security Info=False
Adodc1.RecordSource = "table