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
-----------------------------------------------------