Error con MySQL

[SalomonSab]

has una consulta y si el dato ya existe que te mande un Error seria algo asi:

Código:

If rs.State = 1 Then rs.Close
        rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto & "'", TuConexión, adOpenStatic, adLockOptimistic
            If rs.RecordCount = 0 Then
                'No hagas nada
                Else
                    'Recorremos los Registros hasta dar con el indicado
                    While rs.EOF = False
                        If rs.Fields("TuCampo") = TuCajadeTexto.Text 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
                        rs.MoveNext
                    Wend
            End If

Espero te sirva, lo hice al vuelo y probablemente pueda tener errores de sintaxis, pero esa es la idea