Run-Time Error '76 Path not Found

[pkj]

No entiendo de bases de datos, pero hay un error que no se suele contemplar y podria ser tu problema:
Cuando usas la variable app.path hay que tener en cuenta que si despues ejecutas el .exe en la raiz de un disco, p.ej c:\tuprograma.exe, el valor de app.path ya incluye la barra invertida "\". app.path="C:\"
En esos casos, este codigo te podria dar error por encontrarse con 2 barras invertidas seguidas:

Código vb:

X = App.Path
foto.Picture = LoadPicture(X & "\" & lblname.Caption)
 
habria que cambiarlo por:
 
if right$(app.path,1)="\" then
  X=app.path
else
  X=app.path & "\"
end if
foto.Picture = LoadPicture(X & lblname.Caption)
 

supongo que cargando la base de datos tambien puede dar error.
ADO.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE=" & App.Path & "\Base.mdb"

Saludos