[VB6] Accedere a database protetto da password

[printlist]

Salve ragazzi mi potreste gentilmente aiutare?. Ho un database protetto da password come posso accedervi nei segiuienti codici che uso?. Grazie



Dim Query As String
Query = "select * from Rubrica where ID like '*" & varUno & "*'"
Data1.DatabaseName = App.Path & "\Agenda.mdb"



Dim DB As Database

Dim sQL As String
List1.ListItems.Clear
sQL = "select * from Rubrica "


Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set rs = DB.OpenRecordset(sQL)