Visual Basic para Aplicaciones - dani

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

Que tal Dani.

Mira primero, creo que en tu comparacion del IF siempre es mayor que cero por lo que siempre utiliza la primera opcion.

Y por que mejor no pones dos opciones diferentes, ya sean botones o pantallas de acceso, en la que una sea para red y otra para la computadora.

Espero que te sirva.

Function EXISTE(NOMBRE As String) As Boolean
On Error Resume Next
EXISTE = (Dir$(NOMBRE) <> "")
End Function

Private Sub Command1_Click()
Dim NOMBRE As String
NOMBRE = xxxx ' nombre = a la dirreccion de la dase de dato
a = EXISTE(NOMBRE)
If a = True Then
si existe abrela de lo contrario Abrimos el Dialogo Abrir

ojo no se si funciona con "\\" , pero puedes intentarlo... si no funciona trata de conectar la capeta donde esta la base de dato como una unidad de red...
espero haber podido ayudar