tener la ruta de la base de datos como una variable del sistema

[cesar8]

hola pkj. gracias ahora el sistema me pide la ruta al principio, ahora el problema me lo da al querer asignar un valor de la bd a un textbox aqui esta el cod

Private Sub Command1_Click()
Text1.Text = Data1.Recordset!ruta_imagen1
End Sub

Private Sub Form_Load()
Ruta = InputBox("Base de datos:")
Data1.DatabaseName = Ruta
Data1.RecordSource = mantenimiento

End Sub
me da error 91 en tiempo de ejecucion
la variable de tipo object o la variable de bloque with no esta definida.

disculpen mi falta de conocimiento