Visual Basic - Cambio de ordenador

Preguntas para maestros:

Ya he visto la consulta en el foro pero no me entero, quisiera que alguien me de solución, cosa que agradeceria enormemente.
Tengo una aplicación, que cuando la instalo en otro equipo pierde el environment.. Mi código es el siguiente:

Camino = App.Path + "Alumnado.mdb"
'Curso = Camino + "Aula"
Set cn = New ADODB.Connection

rsCurso.CursorType = adOpenDynamic
rsCurso.CursorLocation = adUseClient
rsCurso.LockType = adLockPessimistic

With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Camino & ";"
.CursorLocation = adUseClient
.Open
End With

With comando
.ActiveConnection = cn
.CommandText = " ;"
.CommandType = adCmdText
End With

. Funciona, pero cuando cambio la máquina pierde la olla. Atendiendo a este código me podeis pastear qué debo de poner parq ue se instale donde se instale no me pregunte donde están la base, conexión etc,,,?

Otra segunda pregunta:
Para hacer copias de seguridad ( La conexíon es la misma de antes), me sale casi siempre que acceso denegado, pienso que es porque se queda algo abierto y pongo el siguiente código.. ¿ Que falla? ¿Una vez hecha la copia ,cómo la vuelvo a reactivar para que quede todo igual que antes de hacer las copias?

rsCurso.Close
rsAula.Close)
cn.Close
strOrigen = Camino
With Copia_Seguridad
.DialogTitle = "Guarda copia de seguridad"
.CancelError = True
.Filter = "Archivo de base de datos *.mdb|*.mdb"
.InitDir = App.Path
.ShowSave
strRuta = .FileName
End With

'MsgBox strRuta
If strRuta <> "" Then

Espera.Show
Entrada.Refresh
Espera.Refresh
FileCopy Camino, strRuta
Espera.Hide

Gracias al foro