[Resolvido]Acessar link em um campo de texto

Olá!

Eu criei uma macro que executa busca de vários links.
Inicialmente, eu criei uma linha de código para cada link.

Assim:

Código:

Public Function fncPesquisaMov()

Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Set GC = CreateObject("InternetExplorer.Application")
  
 
'Abrir as páginas
 
'exemplo de pagina uol
Let WebUrl = "https://www.uol.com.br"
    Shell (NavigatorAddress & " -url " & WebUrl)
    Sleep (2500)
  
'exemplo de pagina google
Let WebUrl = "https://www.google.com.br"
    Shell (NavigatorAddress & " -url " & WebUrl)
    Sleep (2500)
 

End Function

Eu queria saber se é possível acessar os links que estejam armazenados em um campo de uma tabela.

Tabela: clientes
campo: PesqNome

Aí com a ajuda do mestre ahteixeira eu estudei um pouco do rescorset que ele me mandou e consegui fazer o codigo rodar uma consulta (qyr_clts)

Nessa consulta tem o campo PesqNome, que originalmente era da tabela clientes.

A questão é: como fazer a WebUrl = PesqNome?

Código:

Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Set GC = CreateObject("InternetExplorer.Application")
  
'fazer recorset

    Dim DBs As DAO.Database
    Dim RSt As DAO.Recordset
    Set DBs = CurrentDb

            
    Set RSt = DBs.OpenRecordset("qyr_clts")     'abre a consulta previamente criada
    
    If RSt.RecordCount = 0 Then                          'se não encontra registos avisa e sai
        AutoCloseMsgBox "Não há clientes cadastrados", "Informação", 3
        
        Exit Sub
    End If
    
    RSt.MoveFirst                                        'coloca-se no 1º registro

    Do While Not RSt.EOF                                 'percorre todos os registros
    
    Sleep (500)
        

'Abrir as páginas de consulta

Let WebUrl = ????????????????????????????

    Shell (NavigatorAddress & " -url " & WebUrl)
    Sleep (2500)

        
        DoEvents                                        'manda executar eventos
        
        RSt.Edit                                         'edita registo
        RSt.Update                                       'atualiza registo
        RSt.MoveNext                                     'move para proximo registo
    Loop
        
    RSt.Close: Set RS = Nothing                          'fecha recordeset e limpa da memoria
    DBs.Close: Set DB = Nothing                          'fecha base dados e limpa da memoria

        AutoCloseMsgBox "Pesquisa por Nome concluída", "Concluído", 3
End Sub

Código:

Let WebUrl = ????????????????????????????

Código:

Let WebUrl = RSt("NomeDoCampoQueContemLink").value

Funcionou!!

O fórum agradece o retorno. Sucesso.