Loop uden do

Hvad er problemet??

SQL = "Select * From users"
  set rs2 = conn.execute(SQL)
  Do Until rs2.EOF
      if Request.Form("brugerNavn") = rs2("anvnamn") Then
    response.Write ("brugernavn ok")
  Else
      response.Write ("brugernavn fejl")
    rs2.MoveNext
  Loop
  End if
  Conn.Close
  Set Conn = Nothing

Meddelelse> Der opstod en Microsoft VBScript-kompileringsfejl (0x800A040E)
'Loop' uden 'Do'