problemita con consulta

[JuanRAPerez]

sql="select top 8 id_usuario, foto_principal_usuario, nombres_usuario, fecha_nac_usuario from users where nivel_usuario=5 order by fecha_inscripcion_usuario desc"
Set rsbusca=conn.execute(Sql)

contador = 1
do while contador <= 8 and not rsbusca.EOF
'imprimis tus datos
rsbusca.movenext
contador = contador + 1
loop

suerte