Hola Companeros(as).
Tengo el Siguiente problema:
tengo una BD en la que almaceno actividades diarias por fecha. y necesito estraer las actividaes para mostrarlas en un calendario.
tengo el siguiente codigo que me lo hace bien siempre y cuando no exixtan dos registros con la misma fecha en la BD.
¿Como lo modifico para que cuando encuentre dos o mas registros en la BD con la misma fecha, me las agrupe en una variable y para poder mostrarla e mi calendario.?
do until rs.EOF
if intCount > 31 then exit do
if Day(rs("dte")) = intCount + 1 then
datos = datos & rs("reservacion") & rs("entregado") & rs("devuelto")
dictDte(intCount, 1) = datos
rs.Movenext
Else
dictDte(intCount, 1) = " "
End If
dictDte(intCount, 2) = intCount + 1
intCount = intCount + 1
loop
Si algien puede ayudarme se lo agradesco. GRACIAS COMPAÑEROS. Se que es facil pero no veo la solucion. 
