Extraña la pregunta, donde el ingenio para resolver este "problemita" es infimo...
He aqui tu solucion:
1. Genera un archivo txt, en la misma carpeta donde se encuentra el programa
2. En este archivo coloca la ruta donde se encuentra tu archivo .mdb
3. En tu aplicacion, en el evento LOAD del formulario, pones las siguientes instrucciones:
Private Sub Form_Load()
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Archivo = App.Path & "\RUTA.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, Ruta
Close (Linea)
msg = "La ruta origen MDB es " & Ruta
MsgBox msg, vbInformation, "Resultado Lectura RUTA.TXT"
End If
End Sub
