Problema vb6

[Pepe]

Ciao a tutti, vi posto un pezzo di codice che mi da errore:

errore di run-time '-2147217904(80040e10)':
Nessun valore specificato per alcuni parametri necessari.

Potreste dirmi dove sbaglio? Premesso che non sono un esperto.
Ecco il codice

aricerca = Val(txtCognome1.Text)
txtCognome1.Text = aricerca

cn.Open stringa

rs.Open "SELECT * FROM EE WHERE Cognome = aricerca ", cn, 1 'qui mi
da l'errore citato sopra

While rs.EOF = False

txtData.Text = rs("Data")

txtCognome.Text = rs("Cognome")

txtNome.Text = rs("Nome")

txtTipo.Text = rs("Tipo")

txtNumDoc.Text = rs("Numero")

txtPas.Text = rs("Pas")

txtVisitato.Text = rs("Visitato")

Wend

Grazie Ciao

[Ulisse31]

Forse un pò in ritardo ma:

Aricerca è un valore integer o long..presumo.. ora, a che ti serve questo:

aricerca = Val(txtCognome1.Text)
txtCognome1.Text = aricerca ??????

Basta la prima riga e i valori sono uguali...

Poi, hai fatto un errore sulla stringa SQL.. da questa:

rs.Open "SELECT * FROM EE WHERE Cognome = aricerca ", cn, 1 'qui mi

Diventa:

rs.Open "SELECT * FROM EE WHERE Cognome ="& aricerca, cn, 1 'qui mi

è chiaro che, il campo Cognome deve essere di tipo Numeric e no Text...
altrimenti hai fatto mooolti più erorri...

a presto..

Ciao ciao..