Kun vist nogle?

Et ret simpelt spørgsmål. Jeg skal kun bruge de oplysninger fra en database, hvor at division = 1.

Hvor kan jeg rette koden til? Nu bliver alle divisioner selvfølgelig vist.

Koden er

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("adresse.mdb")
SQLstmt = "SELECT * FROM adresse ORDER BY dato;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
  %>
Noget html kode
<%
  DO WHILE NOT rs.EOF
    id = rs("ID")
    navn = rs("navn")
    kamp = rs("kamp")
    division = rs("division")
    Dato = rs("dato")
    %>
  Htmlkode
  <%
    rs.MoveNext
  LOOP
RS.Close
  Response.Write "</TABLE>"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>