Visual Basic - PROBLEMAS CON VISUAL Y MYSQL

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.... por favor!!!!!!....... ya he intentado ..... y nada...

esto Qry.MoveLast
esta de mas, ya que tu while se pieder cuando llega al final.