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)