todo funciona bastante bien ... excepto un par de cosas :
 
en esta parte de codigo : 
Código:
 SQL ="SELECT FechaInicio, FechaFinal, Evento, AnyoMes FROM Calendario2 WHERE AnyoMes = '"& CInt(Anyo) & "/" & CInt(Mes) & "';"
  no me recoge anyo/mes , solo me funciona si lo pongo manualmente 2010/08 por ejemplo pero no automatico. 
por el resto ..bien