[VB6] password - sql

[bobo79]

Dim d As Database
Dim a As String
Dim c As Recordset
Dim anno As String
Dim codice As String
Set d = OpenDatabase("c:\oopp\oopp.mdb")
a = "select * from opere order by anno,Val(codice)"
Set c = d.OpenRecordset(a)

come faccio se il database oopp.mdb è protetto da password?