[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?