[VB6] Impossibile eseguire stringhe SQL

[capredd]

salve, questa sub

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

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

[gibra]

Nelle query, i valori stringa vanno racchiusi tra apici.
Mostra il codice con cui apri la connessione.

[capredd]

Public Sub PblConnettiDatabase()
    Set pblCn = New ADODB.Connection
    Set pblRs = New ADODB.Recordset

    pblCn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"
End Sub

Public Sub PblDisconnettiDatabase()
    pblRs.Close
    pblCn.Close
    
    
    Set pblCn = Nothing
    Set pblRs = Nothing
End Sub

[capredd]

risolto grazie mille