Select TOP 1 problem

har følgende sql sætning som giver problemer:

    strSQL = "Select TOP 1 * From Event WHERE EventSlutdato >= Date() ORDER BY EventStartdato ASC"
      set rs = Conn.execute(strSQL)
     
    EventID = rs("EventID")
    EventTitel = rs("EventTitel")


Hvordan skal sætningen opbyttes så den ikke melder fejl hvis
der ikke er nogle poster i db'en som passer på sql'en ????