[programmer-vb] Membuka database access berpassword

[Yunatan S. Widada]

Dear all,
saya biasa menggunakan koneksi ado dengan metode seperti di bawah ini :
' ini ada di global module
Public DB As ADODB.Connection
Public rsBarang As ADODB.Recordset
Public Sub KonekData()
    Set DB = New ADODB.Connection
    DB.Provider = "microsoft.jet.oledb.4.0"
    DB.Open App.Path + "\newtb.mdb", "Admin", ""
    DB.CursorLocation = adUseClient
End Sub

'ini di form barang
Private Sub Form_Load()
    KonekData
    Set rsBarang = New ADODB.Recordset
    rsBarang.Open "select * from Barang order by kode", DB, adOpenDynamic, 
adLockOptimistic
    Set DataGrid1.DataSource = rsBarang
End Sub

Masalahnya jika database acces yang saya gunakan (newtb.mdb) saya password, 
akan ada 
pesan error sekan-akan database sudah dibuka exclusie.
Ada yang bisa membantu??

terima kasih

tan