Visual Basic - Ayuda urgente por favor

hola amigos tngo un problema/duda con un programita en visual basic:
mirad al cargar el form:

Private Sub Form_Load()
Data1.DatabaseName = "nuevo.xls"
Data1.Connect = "Excel 8.0;"
Data1.RecordSource = "lista$"
End Sub

funciona perfectamente, pero yo kisiera

ke fuese asi:

Private Sub Form_Load()
Data1.DatabaseName = ruta
Data1.Connect = "Excel 8.0;"
Data1.RecordSource = "lista$"
End Sub

y luego mas adelante en un boton cambiar la base de datos:

Private Sub Command1_Click()
ruta = App.Path & "\nuevo.xls"
Data1.DatabaseName = ruta
Data1.Connect = "Excel 8.0;"
Data1.RecordSource = "lista$"
End Sub

Pero no me funciona bien y no puedo conectarla...

Un saludo a todos y a todas, y gracias por adelantado, espero ke alguien me pueda dar una respuesta....

Hola alguien me podria ayudar por favor??? es urgente!!!!
un saludo