Problema de validacion de duplicados

[Bluesman74cl]

Que tal señores... estoy hace varios dias..tratando de validar que no me ingresen dos veces los mismos datos escogidos desde unos checkbox... y hago lo que luego voy a describir... pero no resulta...alguien me puede ayudar ??
aahhh dato..se asume que ya he recogido los datos de año, mes dia, etc

lunes = request.form("lunes") 'recojo los checbox correpondientes al dia lunes
arrlunes = split(lunes,",")
for i = 0 to Ubound(arrlunes)
c = trim(arrlunes(i))
arrlunes(i)= c
sql = "SELECT * FROM actividades Where año = '"&anno&"' and mes = '"&mes&"' and dia = '"&dia&"' and hora = '"&arrlunes(i)&"' and usuario = '"&usuario&"';"
Set res = conexion.Execute(sql)
if res.bof and res.eof then
sql="Insert into Actividades (dia, mes, año, hora, usuario, estado, actividad, solicita) values ( '"& dia &"', '"& mes &"', '"& anno &"', '"& arrlunes(i) &"', '"& codusuario &"', '"& estado &"' , '"& actividad &"' , '"& solicita &"' )"
conexion.Execute(sql)
end if

Next