localizar arquivo, via código, em outro PC em rede.

Tenho um programa que administra funcionários de uma Empresa, o qual está instalado em várias máquinas, sendo que para visualizar as fotos dos funcionários sou obrigado a incluir em cada PC a foto de todos, conforme código abaixo:

caminho = Dir(App.Path & "\fotos\" & foto & ".jpg", 0)

If caminho <> "" Then

imgPM.Picture = LoadPicture(App.Path & "\fotos\" & foto & ".jpg")

Else

imgPM.Picture = LoadPicture(App.Path & "\fotos\semfoto.jpg")

End If

Gostaria de saber se existe algum código para que nos terminais onde não está o Banco de Dados (MySql), estem acessem as fotos no computar onde está o Banco.

Tentei algo como o abaixo, porém dá erro:

If strLocalFoto = "localhost" Then

strLocalFoto = "C:"

Else

strLocalFoto = strIpRemoto

End If

caminho = Dir("" & strLocalFoto & "C:\fotolocal\" & foto & ".jpg", 0) '(App.Path & "\fotos\" & foto & ".jpg", 0)

If caminho <> "" Then

imgPM.Picture = LoadPicture(" strLocalFoto & C:\fotolocal\" & foto & ".jpg") '(App.Path & "\fotos\" & foto & ".jpg")

Else

imgPM.Picture = LoadPicture("C:\fotolocal\semfoto.jpg") '(App.Path & "\fotos\semfoto.jpg")

End If

Agradeço desde já