[Resolvido]Vicular dois banco de dados

ola pessoa estou usado esse código para vincular dois banco de dados ao meu front-end, tenho um formulário para gerencia o primeiro banco de dados e para o segundo estou usando esse código funcionando perfeitamente.

Private Sub Form_Open(Cancel As Integer)
Dim dbsTemp As Database
  Dim strMenu As String
  Dim strInput As String
  Set dbsTemp = CurrentDb
        RevinculaTabelas dbsTemp, _
           "tbl_Logs", _
          ";DATABASE=C:\SGGV\Base_Dados\Logs.accdb", _
           "tbl_Logs"
   End Sub

mais como as vezes preciso fazer alguns teste, crio uma copia em outra unidade tipo D: mai o código sempre vincular na unidade C: gostaria de adaptar a parte vermelha tipo assim

     ";DATABASE=CurrentProject.Path & '\Base_Dados\Logs.accdb'", _
para vincular sempre na pasta onde o projeto estar
só não vincular
se aluguel tiver alguma ideia do estou fazendo de errado  desde já agradeço

É só colocar aspas e o E comercial(&) depois do sinal de igual.

ola seria assim

";DATABASE" = "CurrentProject.Path & Base_Dados\Logs.accdb", _
não deu certo ou assim

DATABASE = "CurrentProject.Path & Base_Dados\Logs.accdb", _
tambem não deu certo

É assim: strings ficam entre aspas e variáveis ficam fora das aspas ligadas pelo &:

= "string" & variável & "string"

esse e meu banco de dados
https://www.dropbox.com/s/kxcmld5o71id2tw/SGGV.rar
quero vincular a tabela log na base de dados separada mais não tive sucesso
desde ja agradeço a ajuda do forum

finalmente consegui adaptar esse código para meu propósito

Private Sub Form_Open(Cancel As Integer)

Dim dbsTemp As Database
  Dim strMenu As String
  Dim strInput As String
  Set dbsTemp = CurrentDb
        RevinculaTabelas dbsTemp, _
           "tbl_Logs", _
         ";DATABASE=" & CurrentProject.Path & "\Base_Dados\Logs.accdb", _
           "tbl_Logs"
         
         
End Sub

Sub RevinculaTabelas(dbsTemp As Database, _
  strTable As String, strConnect As String, _
  strSourceTable As String)
  On Error Resume Next
  Dim tdfLinked As TableDef
  Set tdfLinked = dbsTemp.CreateTableDef(strTable)
  tdfLinked.Connect = strConnect
  tdfLinked.SourceTableName = strSourceTable
  dbsTemp.TableDefs.Append tdfLinked
End Sub

muito obrigado pela colaboração de todos.