Recorrer Recordset

[Millertaker]

Hola tengo un recordset para recorrer pero no se por que noi me esta tomando el primer registro, les envio el codigo...



Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;UID=sa;PWD=nacho; Initial Catalog=dbDMGAlpinaYogoPremio;Data Source=cronos"
Set RsDatos = CreateObject("ADODB.Recordset")
querytx1 = "SELECT * FROM MAILS "
set RsDatos = cnn.execute(querytx1)

DO UNTIL RsDatos.eof
Variable = PackageEnvioMail.GlobalVariables("CuerpoMensaje"). value
RsDatos.movenext

LOOP