[VB6-ACCESS] Problema con query(WHERE)

[licetinsanire]

Salve a tutti,

uso il seguente codice per selezionare i record da vb6 a un db access:

Option Explicit
Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset  Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"
rs.Open "SELECT id, nome, cognome FROM utenti ORDER BY cognome ASC", cn, 1

cmbSeleziona.AddItem ("")

While rs.EOF = False
        cmbSeleziona.AddItem (rs("id").Value & " - " & rs("cognome").Value & " " & rs("nome").Value)
        rs.MoveNext
Wend
rs.Close
cn.Close

Il codice funziona correttamente, ma se provo a mettergli la clausila WHERE:

Dim StrKey AS string
strKey = text1.text
rs.Open "SELECT * FROM utenti WHERE id = " & strKey, cn, 1

mi dà l'errore:

"I driver ODBC non supporta le proprietà richieste"

Dove sbaglio?

[chico_]

Ciao e benvenuto a bordo.

Prova a inserire la stringa da cercare tra apici, in quanto trattasi di stringa e non di valore numerico:

rs.Open "SELECT * FROM utenti WHERE id LIKE '" & strKey &"'" , cn, 1

Ciauz

Chico

[licetinsanire]

Originariamente inviata da chico_

Ciao e benvenuto a bordo.

Prova a inserire la stringa da cercare tra apici, in quanto trattasi di stringa e non di valore numerico:

rs.Open "SELECT * FROM utenti WHERE id LIKE '" & strKey &"'" , cn, 1

Ciauz

Chico

era proprio quello...ti ringrazio

[chico_]

prego

Chico

[@Alex]

Originariamente inviata da chico_

Ciao e benvenuto a bordo.

Prova a inserire la stringa da cercare tra apici, in quanto trattasi di stringa e non di valore numerico:

rs.Open "SELECT * FROM utenti WHERE id LIKE '" & strKey &"'" , cn, 1

Ciauz

Chico

Se non si usa il JOLLY, in questo caso % mi pare che il LIKE possa essere sostituito da =
Ovviamente è solo una questione estetica di pignoleria.