Visual Basic - borrar filas del datagrid

Quiero acer es poder controlar q no metan filas duplicadas en 1bd y no controlarlo con 1clave primaria en la base d datos pq me dice q no se puede duplicar y salta el programa y yo lo q qiero es q salga 1mensaje de error y te de la opcion de volver a introducir la fila.
Paso la columna del datagrid a 1textbox y lo busco en la bd,si lo busco con find aunke no ponga update siempre me encuentra 1el q acabo de introducir.hay alguna otra manera de acerlo o q es lo q ago mal??

txt1.Text = DataGrid1.Columns(0).Value
Adodcprod.Recordset.Find "[CODIGO_PROD]=" & txt1.Text
Adodcprod.Recordset.Delete
Adodcprod.Recordset.Update

Lo mejor es gestionar los errores con On Error y Resume.
De no ser asi todo lo que hagas deberá ser BeforeColUpdate, haciendo un exit sub en el caso de encontrar un duplicado con Find, después de haber dado un mensaje etc.