exit while - help -

[cuollins]

ragazzi ho bisogno di uscire da questo ciclo appena trovo almeno un elemento ma c'è qualcosa che non va :

While (Not rs.EOF) Or (Not Contatto_trovato = "1")
Codice_Contatto = rs("Codice").Value
Contatto_trovato = "1"
rs.MoveNext
Wend
rs.Close

invece di uscire dopo che ho settato ( Contatto_trovato = "1" ) continua a scorrere tutta la tabella. come devo fare ?

grazie.

[cuollins]

ok risolto, era semplicissimo..
Select Top 1 Codice From ...