Haber primero, en tu consulta iguala tus campos:
Código VBasic:
Ver originalSQL = "SELECT FechaProg, FechaConfirm FROM Cirugias WHERE FechaProg = convert(datetime, '" & fecprog & "', 102) and FechaConfirm = convert(datetime, '" & feconfirm & "', 102)"
Y en tu condición debería de ser así:
Código VBasic:
Ver originalIf reader.HasRows Then
MsgBox("Inserte otra fecha")
Exit Sub
End If
Solo le estas diciendo si es que tu consulta realizada encuentra algunas filas en la bd entonces que te mande un mensaje diciendo que las fechas coinciden y son iguales...
P.D: lo que si no entiendo es por qué pones( convert(datetime,""& fecprog&"'",
102)"...102? ....