[Resolvido]Recordset entre datas de campos não vinculados

Olá, gostaria de saber se é possível ter um recordset de datas, da seguinte forma:

Tenho dois campos com datas, o campo A1 e uma data anterior, A0 no campo A0. Nenhum desses campos é vinculado.

Tenho um botão que roda um recordsetA A com a data A1 no campo A1. Funciona OK.

É possível que ao rodar o meu recordsetA, ele crie um recordset temporário (recordsetB), com todas as datas entre A0 e A1, e execute os eventos em todas as datas, antes de mudar o recordsetA pro próximo registro?
Aí no registro seguinte ele refaça o recordsetB e assim por diante?

Não preciso armazenar essas datas em local nenhum.
Preciso apenas fazer pesquisas dessa data (A1) em vários registros, e seria mais fácil pesquisar as datas, por exemplo, A1, A2, A3... antes de mudar pro próximo registro.

Boa Noite,

Posta esse banco para verificar melhor. Se entendi direito, não seria possível um Do While dentro do outro? Se é que entendi.

Abraços

Prezados,

Consegui resolver colocando uma função:

Código:

Private Function atualizaData()

Dim SelData As String
Dim consultaEndereco As String


     
    'indica a pesquisa na data 01
   
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
             
        Set rs = db.OpenRecordset("cst_procpush")      'abre a consulta previamente criada
   
            If rs.RecordCount = 0 Then                  'se não encontra registos avisa e sai
                Exit Function
            End If

    rs.MoveFirst                                        'coloca-se no 1º registro

    Do Until rs.EOF                                    'percorre todos os registros
   
  ' If Me.dt01 > Me.DataStatus Then
    Me.txt_data = Me.DataStatus
   
   
        'navega pra tela do esaj
        Me.WebBrowser1.Visible = True
            consultaEndereco = txtLinkEsaj
        WebBrowser1.Navigate (consultaEndereco)

    'aguarda carregar a página
    Do
        DoEvents
    Loop Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
           
          Do Until CStr(txt_data) = Me.dt01
          Me.txt_data = DateAdd("d", 1, txt_data)
          SelData = CStr(txt_data)
          Call PaginaWebContem(SelData)                'faz a busca na data
          Loop
       
        DoEvents                                        'manda executar eventos
        rs.Edit                                        'edita registo
        rs.Update                                      'atualiza registo
        rs.MoveNext                                    'move para proximo registro
   
   
    If Not rs.EOF Then DoCmd.GoToRecord acForm, "processosPush", acNext
           
    Loop
       
    rs.Close: Set rs = Nothing                          'fecha recordeset e limpa da memoria
    db.Close: Set db = Nothing                          'fecha base dados e limpa da memoria



 
End Function

Vou dar o tópico por resolvido!