Como coletar valor de outro banco de dados

Olá pessoal, boa tarde!

Eu dei uma pesquisada aqui no forum más não encontrei o que eu precisava, então venho pedir a ajuda de vocês mais uma vez

eu tenho 8 programas (Financeiro, Rh, Compras, ETC...) e para tantos programas, estava ficando confuso, então fiz uma central onde eu executo um botão aonde ele abre o programa selecionado.

más ai me surgiu um problema, eu preciso digitar usuário e senha em todos eles, todas as vezes que eu for entrar.

Como eu posso fazer login apenas uma vez e os outros programas carregam o usuário atual. já feito logon na outra sessão

Obrigado pessoal. eu uso este módulo, fornecido aqui mesmo no forum pelo nosso amigo Avelino

Código:

Option Compare Database
Option Explicit

Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean

    Dim criterio As String
   
    criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
   
    If Nz(DCount("login", "Tbl_Usuário", criterio), 0) > 0 Then
        verificaLogin = True
        setUsuarioAtual argLogin
    Else
        verificaLogin = False
    End If

End Function

Sub setUsuarioAtual(argUsuario As String)
    strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
    getUsuarioAtual = strUsuarioAtual
End Function


Apenas dando um up no tópico

Ajudem PLIS