[Resolvido]Código VBA para exibir base de dados vinculada Back-end

Boa noite caros colegas, estou com um probleminha simples acredito eu para resolver, porém não estou encontrando a solução. Estou com um projeto onde desmembrei meu banco de dados em BE e FE, como vou utilizar tabelas vinculadas eu gostaria de na hora de escolher o banco que pudesse informar em uma caixa de texto não acoplada ao formulário o banco de dados vinculado atual. É só uma informação que gostaria de passar ao usuário mas não estou encontrando o comando correto. Atualmente estou no sequinte código:
Ao carregar o formulário

Código:

Private Sub Form_Open(Cancel As Integer)
txtLocalizaBE = fncOrigemBanco 'Caixa de informação da origem do banco
End Sub

E a função

Código:

Private Function fncOrigemBanco() As String

Dim strPrefix As String

fncOrigemBanco = CurrentDB().Name & "\" & strPrefix & " "   '"caminho de origem do arquivo.accdb"

End Function

Porém me retorna o banco Front End da aplicação  mas gostaria de mostrar o Back End  atual se possível
Se alguém puder me dar esta luz agradeço muito. Obrigado !

Ola;

Para você saber ou mostrar o caminho do back end, tem de invocar pelo menos o nome de uma tabela vinculada;

Teste por favor e retorne;

Código:

Public Function MostraCaminhoBackEnd()
Dim strBackEnd As String
Dim x As Integer
'maximoaccess
strBackEnd = CurrentDb.TableDefs("SuaTabelaVinculada").Connect

x = InStrRev(strBackEnd, "=") + 1
strBackEnd = Mid(strBackEnd, x)
    MsgBox strBackEnd
End Function

Bom dia JPaulo, fiz conforme sua orientação, exibiu o nome do back-end em forma de mensagem, mas não é o que quero,  gostaria que informa-se em uma caixa não acoplada o caminho, tem como ? tentei usar o seguinte para carregar

Código:

Private Sub Form_Load()
Me.txtLocalizaBE.Enabled = False
txtLocalizaBE = MostraCaminhoBackEnd 'Preciso que a caixa não acoplada receba esta informação e não como tipo mensagem de notificação
End Sub


Eu só lhe mostrei o caminho das pedras, para testar;

Código:

Public Function MostraCaminhoBackEnd() As String
Dim strBackEnd As String
Dim x As Integer
'www.maximoaccess.com
strBackEnd = CurrentDb.TableDefs("SuaTabelaVinculada").Connect

x = InStrRev(strBackEnd, "=") + 1
strBackEnd = Mid(strBackEnd, x)
    'MsgBox strBackEnd
MostraCaminhoBackEnd = strBackEnd
End Function

Na origem da caixa de texto:

Código:

=MostraCaminhoBackEnd()

JPaulo, mais uma vez seu conhecimento é admirável... funcionou perfeitamente, coloquei a função e no evento ao carregar

Código:

Private Sub Form_Load()
Me.txtLocalizaBE.Enabled = False
txtLocalizaBE = MostraCaminhoBackEnd
End Sub

E exatamente o que eu queria, apareceu o caminho do Back-End tanto local quanto em rede, perfeito !

Obrigado mais uma vez, caso resolvido !!

Fico feliz.
Obrigado pelo retorno o fórum agradece.