Quando tento fazer:
Data1.Connect = "MS Access;pwd=senha"
Data1.DatabaseName = App.Path & "ancoxp.mdb"
Data1.RecordSource = "SELECT IDAtividade FROM tblControle WHERE IDParoquia = " & cmbParoquias.ItemData(cmbParoquias.ListIndex)
Data1.Refresh
Da erro: 3011
O mecanismo não encontrou o objeto...
Assim funciona normalmente:
Data1.Connect = "MS Access;pwd=senha"
Data1.DatabaseName = App.Path & "ancoxp.mdb"
Data1.RecordSource = "tblControle"
Data1.Refresh
Usando DAO 3.6 banco de dados 2000 com senha.