Problemas con loop y ado.net

Hola amigos necesito su ayuda
tengo este codigo en vb6 (trabajado con dao)
do
do
do
DCPautas.Recordset.MoveNext
If (DCPautas.Recordset.EOF) Then
MsgBox "La Generacion de la Pauta de Publicacion del " &
Mas_FechaPauta.Text & " ha sido Exitosa ", 0
Exit Sub
End If
condicion
condicion
Loop While Not DCPautas.Recordset.EOF


Bien se mete hasta en 3 loop y como se dan cuenta en el loop mas interno
hago que se desplaze el puntero del recordset, por que necesito que sea en
esa zona y si llega al final sale con un exit.
Bien en vb.net en dataset no veo que exista el movenext, como podria
replicar este codigo en vbv.net?

saludos
Gracias

Victor