Visual Basic - URGENTE!! Consulta vb a sql

Hola a todos!

Necesito hacer una consulta a sql. ok hasta ahi voy bien x q si me la hace.
Ahora lo que necesito saber es que tengo que hacer para que me muestre un mensaje si lo encontro.
Mi consulta es la sig:

sql = "select * from Generacion where gen = ( & Text1.Text & )"
cnn.Execute sql

Espero alguien me pueda ayudar. Gracias!

Con un Count(*) .... where .... si es cero no lo encontró, tambien verificando el BOF y EOF, simepre y cuando tu consulta contenga filas de devolución, osea asigandole a un recordset.

set recor = cnn.Execute sql

Si tu consulta ok te la hace, yo me corto las pelotas y te las envio en caja de plata.