salve, questa sub
codice:
Private Sub mnuRicercaCodice_Click()
    Dim str As String
    
    str = UCase(Trim(InputBox("Conto da cercare?", "Ricerca conto")))
    
    PblConnettiDatabase
    
    pblRs.Open "SELECT * FROM TbPianoDeiConti WHERE UCASE(denominazione) = " & str, pblCn, 1
    
    If pblRs.EOF Then
        MsgBox "Conto non presente, controlla di aver digitato correttamente", vbCritical, "Ricerca non riuscita"
    Else
        MsgBox pblRs("Codice").Value, vbInformation, "Ricerca eseguita con successo"
    End If
    
    PblDisconnettiDatabase
End Sub
mi crea errore

codice:
Run-time error '-2147217887 (80040e21)':
Il driver ODBC non supporta le proprietà richieste
se clicco debug mi evidenzia la riga

pblRs.Open "SELECT .......

spero voi possiate aiutarmi

grazie