Acceso a datos repetidos

[HELPAZ]

Buenas Tardes

La pregunta es la siguiente
tengo un formulario en visual y uno de los text.box en donde se coloca un dato antes de guardar debe ir a la base de datos y verificar que ese numero no este duplicado si esta duplicado que de la opcion de modificar ese text.box para guardarlo normalmente

[jrp01]

Mira creo aue es asi:
dim cn as new adodb.connection
dim rs as new adodeb.recordset
dim SQL as string
cn.open "tu conexion"

en el boton:

SQL="select count(*) from tu tabla where tu_condicion=" & text1.text
set rs=cn.execute(sentencia)
if rs(0)=1 then 'Encontro uno
SQL="update tu_tabla tucampo=" & text1.text & " where tu_condicion=" & rs(0)
cn.execute(SQL)
else
SQL="Insert into Tu tabla values(" & text1.text & ")"
cn.execute(SQL)
end if

Espero no equivocarme es que no tengo VB en este momento.

Saludos