Cita:
Iniciado por smoke001 
Set Dbr1 = Datos.Datos.Execute ("Select * from Rec")
For A = 1 To Dbr1.RecordCount
...
If A <> 0 Then
Dbr1.MoveNext
End If
Next A
En un for con una sola instruccion que le quites ya ahorraste algo de tiempo, no le veo sentido a esa comparacion, ya que inicias el valor de A a partir de 1, por lo que nunca valdra 0.
Por otro lado a menos que necesites hacer algo con esos datos antes de presentarlos es mejor la opcion que te presentaron aca arriba.