Visual Basic - Conexion ADODC

Amigos: Necesito saber en el paso donde se establece la conexion como darle un camino general para que encuentre la base en cualquier parte del disco. Ej. elijo la conexion "Jet........" paso siguiente debo poner la base a leer, aqui esta el problema, si le pongo un camino fijo no se podra instalar en cualquier directorio (paquete de instalacion). No me toma App.path. Gracias

Prueba a poner esto en el module.bas

Public Sub conectar()

sBase = App.Path & "\Libros.mdb"
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & sBase

End Sub

Y luego el los Forms

Private Sub Form_Load()

conectar

End sub