chamar banco de dados externos na mesma pasta

Gostaria de saber qual seria a melhor forma para chamar banco de dados externos na mesma pasta sem a necessidade do colocar a unidade

uso atualmente assim:

Dim bd As DAO.Connection
Dim rs As DAO.Recordset
Dim ws As Workspace
Dim sel As String



nome = Texto1


Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\Users\SQL_2012\Downloads\banco2.mdb", False, False)
Set rs = db.OpenRecordset("TB_NOME")
rs.AddNew
rs!nome = nome
rs.Update


gostaria de usar assim


Set db = ws.OpenDatabase("banco2.mdb")

tem alguma forma..até porque várias pessoas abrirão os forms e para algumas máquinas o endereço da unidade é diferente.

Boa noite,
Set db = ws.OpenDatabase(Mid(CurrentDb.Name, 1, InStr(1, CurrentDb.Name, "\")) & "banco2.mdb", False, False)

Não deu certo, ele ficará dentro de umas três subpastas..

tipo

u:\pasta1\pasta2\pasta3\"ele ficará aqui!"

tentei do jeito que vc disse e continuou com o erro...

apareceu unidade d:\banco2.mdb

Bom dia,
Mid(CurrentDb.Name, 1, Len(CurrentDb.Name) - InStr(1, StrReverse(CurrentDb.Name), "\"))