loop without do

Jeg står lidt på bar bund her. Jeg aner SLET ikke hvorfor jeg får denne fejl:

Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'

gør i?

Set Rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "Select * From tabel"
Set rs = Conn.Execute(strSQL)

do until rs.eof

if rs("felt") = 1 then
bv1 = bv1 + 1
elseif rs("felt") = 2 then
bv2 = bv2 + 1
elseif rs("flet") = 3 then
bv3 = bv3 + 1
elseif rs("felt") = 4 then
bv4 = bv4 + 1
elseif rs("felt") = 5 then
bv5 = bv5 + 1
end if

if rs("felt2") = 1 then
af1 = af1 + 1
elseif rs("felt2") = 2 then
af2 = af2 + 1
elseif rs("felt2") = 3 then
af3 = af3 + 1
elseif rs("felt2") = 4 then
af4 = af4 + 1
elseif rs("felt2") = 5 then
af5 = af5 + 1
end if

Antal = Antal + 1

rs.MoveNext

LOOP

plz hjælp hurtigt :)

NZC