Jämföra datum och skriva ut

Har ett litet problem med att jämföra datum och sedan skriva ut det som inte stämmer övernes med det angivna datumet!
Har en Access databas med tabellen tbl_Ledig som innehåller fälten
personId - Autonumber
ledig - Date/time
person - Text

Det jag vill göra är att skriva ut alla personer som inte är lediga ett visst datum.

Vi antar att datumet är 2007-05-09 där en person är ledig, nu vill jag skriva ut resten av personerna.

strDatum = "2007-05-09"
  'ppnar databasen
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas.mdb") & ";pwd=;"
  

  Set rst = Conn.Execute("SELECT person FROM tbl_Ledig WHERE Ledig <> #"&strDatum&"#")
  

  Do until rst.EOF
  %>
 
  
  <OPTION><%=rst("person")%></OPTION>
  
  <%
  rst.MoveNext
  loop                               
  Conn.Close
  Set Conn = Nothing
  %>
  </SELECT>

Så har jag skrivt men det fungerar inte, någon som kan hjälpa mig?

Tack på förhand!

Vad betyder: fungerar inte?
Vad får du för resultat om du kör frågan separat?

Menade att det inte fungerar som jag vill. När jag kör med datumet som jag angett i "strDatum" som också finns i fältet ledig i databasen så visas inget. Men när jag kör med ett datum som inte finns visas en person från fältet person i databasen och det är den personen som har "strDatum" i fältet ledig.
Kanske har förklarat lite konstigt.

Men om vi säger så här istället.

Om jag har samma databas och vill loopa ut alla i fältet "person" men inte de som har ett har ett datum i fältet ledig som överenstämmer med "strDatum" Hur gör jag då???

Tack på förhand!