utilizzando un Recordset per aprire la SELECT e non la Connessione, così:
codice:
Dim CON As Connection
Dim RS As New Adodb.Recordset
Set CON = New Connection
CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path 
        & "\Settings.mdb"
        
strSQL = "SELECT * FROM [Applicativi] WHERE [Applicativo] = '" & 
         txtApplicazione.Text & "' AND [Gruppo] = '" & 
         Oggette_linkato_ad_applicazione & "' "

RS.Open strSQL, CON, 1, 3