Listning af data på bestemt dato!

Jeg har et kalender script som virker helt perfekt, det kan dog kun på nuværende tidspunkt vise én event på en bestemt dato!

Jeg vil derfor gerne have den til at kunne lave et loop på hver enkelt dato!  Har så godt som prøvet alt, så jeg håber der er nogle der kan hjælpe:D

scriptet som udskriver dagens event er her:

strSQL = "SELECT * FROM tourplan WHERE Tdato = #" & dtOnDay & "#"
  Set objRS = objConn.Execute(strSQL)
  If NOT objRS.EOF Then
    dailyMsg = objRS("Tsted") & " kl:" & objRS("Ttid")
  Else
    dailyMsg = ""
  End If
  Set objRS = Nothing