Access - Dudas Recordset

Dim conexio As New Connection                       'creamos una conexion utilizando el objeto connection'

Set conexio = CurrentProject.Connection          'establecemos conexion con la base actual

Dim instruccio  As String                                    'declaramos variable de tipo texto

instruccio = "select * from T_parametres"           'almacenamos en la variable de tipo texto una instruccio sql

Dim mirecorset As New Recordset                     'creacion de objeto recorset tabla virtual

mirecorset.Open instruccio, conexio                   'abrir el recorset utilizando la conexion activa e insertar  la informacion sql

Do Until mirecorset.EOF                                 'recorre el recorset hasta que llegue al final (EOF)

 Debug.Print mirecorset!ref_client; ‘

mirecorset.MoveNext                                'avanza un registro o linea dentro del recorset

Loop

Do Until mirecorset.EOF

mirecorset.Close                                    'cierra recorset

Set mirecorset = Nothing                            'libera la memoria de los recursos utilizados en el recorset

conexio.Close                                    'cierra la conexion

Set conexio = Nothing                            'libera los recursos utilizados en la conexion

End Sub

Do Until mirecorset.EOF

                              'recorre el recorset hasta que llegue al final (EOF)

for n=1 to numero_de datos_regisro

      Debug.Print mirecorset!ref_client; ‘

       Debug.Print mirecorset!otro_dato1; ‘

      Debug.Print mirecorset!otro_dato2; ‘

       Debug.Print mirecorset!nombre-dato_daton; ‘

       .....

next n

mirecorset.MoveNext                                'avanza un registro o linea dentro del recorset

Loop

REM  CON  ADO------------------------------------------

'Dim rs As Recordset

'Dim CON As Connection

'CREA RS COMO RECORDSET

Set rs = CreateObject("ADODB.RecordSet")

Set CON = Application.CurrentProject.Connection

     C10 = ""

       C10 = C10 & " select  *  from  NOMBRE-TABLA "

   consulta = c10

rs.Open consulta, CON, adOpenDynamic, adLockOptimistic

If rs.EOF = False Then

                rs.MoveLast

                rs.MoveFirst

        End If

 Rem  bucle de recordset  para  saber en Numero de  registros

                        CUENTA = 0

                        Do While rs.EOF = False

                            CUENTA = CUENTA + 1

                        rs.MoveNext

                        Loop

Texto55 = RS.Fields("ID-T060").Value        ------VER CONTENIDO POR NOMBRE DEL CAMPO   DEL RECORDSET ACTUAL

Texto55 = RS.Fields(6).Value                           ---- VER CONTENIDO POR EL NUMERO DEL CAMPO    DEL RECORDSET ACTUAL

RS.CLOSE   : PARA CERRAR EL RECORDSET