Visual Basic - rutas de archivos

hola a todos, mi problema es que tengo una red de tres ordenadores, y un programa que se basa en una BD que esta en uno de ellos, el caso es que quiero que cuando el programa no se este ejecutando en la red sino en otro ordenador, de la opcion de abrir la base de datos mediante el Common Dialog Abrir, el codigoque estoy utilizando es este pero me dice que la ruta no es valida:
Dim strruta As String
strruta = "\\Daniel\c\Archivos de programa\Microsoft Visual Studio\VB98\Pacientes2\PRUEBAS.mdb"
If Len(Dir(strruta)) > 0 Then
Set BD = OpenDatabase("\\Daniel\c\Archivos de programa\Microsoft Visual Studio\VB98\Pacientes2\PRUEBAS.mdb")
Else
CMDL1.ShowOpen 'Abrimos el Dialogo Abrir
strruta = CMDL1.FileName
End If
Gracias a todos