[Resolvido]Especificando o caminho do BD em SQL com duas tabelas vinculadas

Amigos.. Modifiquei o título do Tópico pois mudei a forma como farei isso

Tenho o SQL
StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.Infração, Fotos_Detentos.IDFoto, Fotos_Detentos.CaminhoFotoRosto," _
& "Fotos_Detentos.CaminhoPerfil1, Fotos_Detentos.CaminhoPerfil2, Fotos_Detentos.CaminhoPerfil3, Fotos_Detentos.CaminhoPerfil4 FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
& "WHERE (Detentos.[Nome] Is Not Null);"

IN '" & StrPath & "'"

Como adicionar essa linha que representa o caminho do BD

Tentei assim:

StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.Infração, Fotos_Detentos.IDFoto, Fotos_Detentos.CaminhoFotoRosto," _
& "Fotos_Detentos.CaminhoPerfil1, Fotos_Detentos.CaminhoPerfil2, Fotos_Detentos.CaminhoPerfil3," _
& "Fotos_Detentos.CaminhoPerfil4 FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
& "IN '" & StrPath & "' & WHERE (Detentos.[Nome] Is Not Null);"

Erro na cláusula FROM

Amigo Criquio se puder adptar este codigo de caminho de BD que me enviou.. para o SQL acima no tópico..

Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rsAdm As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")

strSQLAdm = "SELECT * FROM Administração"
Set rsAdm = dbLocal.OpenRecordset(strSQLAdm)

Enlouquecendoooooooooo com os SQL's
Mas eles não me derrotam....hehehe

Consegui!!!!!!
Eis o Baita:

StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.Infração, Fotos_Detentos.IDFoto, Fotos_Detentos.CaminhoFotoRosto," _
& "Fotos_Detentos.CaminhoPerfil1, Fotos_Detentos.CaminhoPerfil2, Fotos_Detentos.CaminhoPerfil3, Fotos_Detentos.CaminhoPerfil4 FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
& "IN '" & StrPath & "'" _
& "WHERE (Detentos.[Nome] Is Not Null);"

Parabéns. Cada dia mais espertinho, hein. Quero ver isso a triplicar. Abraço.

Vierão do Céu......TO pra ficar louco kkkkk

Fico dando risada sozinho aqui.. quando resolvo...
O povo deve achar que eu estou meio 13 ou Quebec (Giria prá loucos... por aqui) hehehe

Saudaçoes!!!!

Tinha ido jantar. Bom que resolveu

Ele está cada dia melhor.

Nada melhor para fixar o aprendizado do que tentar até acertar

Eu torro vossas paciencias... lhes sou grato por isso...

Jaja vem mais... hehehehe

O que eu chamo do melhor aprendizado. A evolução do Haryshon é um orgulho para o fórum.