Visual Basic - problemas con while EOF

hola.....
estoy realizando un proyecto en visual basic 6.0 y php myadmin
estoy usando un do while para recorrer una tabla pero cuando llego al ultimo registro se cuelga el programa, este es el codigo:
Qry.MoveFirst
Do While Not Qry.EOF
Set LST = ListView1.ListItems.Add(, , Qry!descripcion)
LST.SubItems(2) = Qry!nfecha
LST.SubItems(1) = Qry!fecha
LST.SubItems(3) = Qry!cod_inf
LST.SubItems(4) = Qry!hallazgos
LST.SubItems(5) = Qry!fallas_corre
LST.SubItems(6) = Qry!fallas_xcorre
LST.SubItems(7) = Qry!nombre
Qry.MoveNext
Loop
Qry.MoveLast
y cuando selecciono el ultimo registro en el listview se cuelga.... me supongo que es cuando llego al ultimo registro por la condicion EOF.. si alguien puede ayudarme se lo agradeceria....

Hola Victor, no se si esto te lo soluciona, pero yo lo hago de la siguiente manera:
Do Until Qry.EOF
Set LST = ListView1.ListItems.Add(, , Qry!descripcion)
LST.SubItems(2) = Qry!nfecha
LST.SubItems(1) = Qry!fecha
LST.SubItems(3) = Qry!cod_inf
LST.SubItems(4) = Qry!hallazgos
LST.SubItems(5) = Qry!fallas_corre
LST.SubItems(6) = Qry!fallas_xcorre
LST.SubItems(7) = Qry!nombre
Qry.MoveNext
Loop

No se si así te dara resultado

Un saludo
Llaverin