Loop eller løkke komando til denne

Hejsa

Jeg kan desværre ikke få denne til at fungere:

Function TopGlobalmenu()
GlobalMenu_SQL = "select * from sites where site_visible=1" '
set Globalmenu_RS = conn.execute( GlobalMenu_SQL )
Do while not Globalmenu_RS.Eof
Topglobaltemp = "<a title=""" & Globalmenu_RS("site_desc") &  """ href=""" &  Globalmenu_RS("site_rootaddress") & """>" & Globalmenu_RS("site_name") & "</a>"
Globalmenu_RS.movenext
loop

TopGlobalmenu = Topglobaltemp

End function

Er det ikke mulig at man skal lave en løkke på en eller anden måde?