Error con MySQL

[Avellaneda]

Bueno, tampoco sería necesario recorrer el recordset. Si la propiedad RecordCount es mayor de cero es que el dato ya existe:

Código vb:

rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto & "'", TuConexión, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
     MsgBox " El Dato que ingreso ya existe en la base de datos ", vbCritical, "Mensaje ERROR..."
     'Aqui colocas todo el codigo que quieras mostrar
     Exit Sub
End If