Visual Basic - Usar app.path para la coneccion con la BD? se pued

Hola q tal, bueno sera que se puede hacer algo para q la cadena o direccion de coneccion a la base de datos sea automatica? porq cuando cambio de pc tengo q estar arrreglando la direccion.

Uso un adodc con una BD access

Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Fernando\Escritorio\Archivos\MiPROyecto\carga.mdb;Persist Security Info=False"

con lo demas si uso app.path y me a funcionado, pero ya solo me falta esa direccion.

Les agradezco su ayuda.

Me a funcionado por ejemplo con

Form1.Picture = LoadPicture(App.Path + "\resmas.jpg")

pero para trabajar con

Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Fernando\Escritorio\Archivos\MiPROyecto\Equipos.mdb;Persist Security Info=False"

me da error lo e intentado poner asi:

Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= app.path + \Equipos.mdb;Persist Security Info=False"

o

Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= (app.path + \Equipos.mdb);Persist Security Info=False"

y de otras formas pero q va dice error.

Yo usaría algo así:
Declaración de las variables:

Public BDatos As Database
Public rstClientes As Recordset

Y en la función de cargar la base de datos pones: (no hace falta obdc, solo incluir el componente: Microsoft DAO 3.6 Object Library)

path = App.path & "\data\bd.mdb"
Set BDatos = OpenDatabase(path)
Set rstClientes = BDatos.OpenRecordset("select * from clientes")

Después puedes hacer lo que quieras con el control recordset, consultas SQL etc

2 errores comunes.

1.) El de Carlos, concatenas una cadena sin sacar al variable del texto entre comillas:

"...." & variable & "..."

2.) El de Alberto, das una respuesta con DAO y Carlos usa ADO.