Cita:
Iniciado por Avellaneda 
Hola, pon el tipo de cursor del lado cliente, sino siempre el valor de RecordCount será -1
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
y elimina la instrucción
con.Close porque dará error al hacer el INSERT si la conexión está cerrada.
Estimado. Realicé las modificaciones, pero el problema persiste. El problema en si es que cuando ingreso ese codigo de agendamiento a pesar de no existir, se arroja el mensaje que si existe. La insercion de datos si se realiza, pero no esta validando la existencia de un codigo.
No se que puede ser.