Private Sub VerRuta_Click()
Dim K As Long
For K = 1 To Len(Application.CurrentDb.Name)
    If Mid(Application.CurrentDb.Name, K, 1) = "\" Then Ruta = Left(Application.CurrentDb.Name, K)
Next
End Sub
-----------------------------------------------------

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)