Visual Basic - Conectar a Access desde aplicacion

Hola a todos,

Trabajo con vb6 y access 2003. La duda es como cambiar de la conexión de un archivo de access a otro, me explico; en el ConnectionString del adodc yo configuro una ruta y nombre de archivo de access, por ejemplo:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Archivos de programaPRESUPUESTOSOBRASOBRA1.mdb;Persist Security Info=False"

Cuando trabajo contra "OBRA1.mdb" no hay problema, todo funciona, ahora lo que quiero es mediante código conectarme a "OBRA2.mdb". Lo intento de esta manera y aunque realiza la consulta no cambia el connectionstring y por tanto no conecta bien:

Private Sub Command1_Click()

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & Text1.Text
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from CONCEPTOS"
End With
Set DataGrid1.DataSource = rs
Text2.Text = Adodc1.ConnectionString
End Sub

Si me podrías dar una pista estaría muy agradecido.
Un saludo.

eso que has hecho lo tienes que hacer en el objeto conexion, no en el recordset

Hola Jaime, lo primero muchas gracias por contestar; creo que te refieres a algo como esto:

Public Sub Command1_Click()

Dim Adodc1 As ADODB.Connection
Dim cmdComando As ADODB.Command
Dim strCadenaConex As String
Dim rsLista As ADODB.Recordset
Dim parParametro1 As ADODB.Parameter

Set Adodc1 = New ADODB.Connection

strCadenaConex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & Text1.Text

Adodc1.ConnectionString = strCadenaConex
Adodc1.Open

Text2.Text = Adodc1.ConnectionString

DataGrid1.Refresh
DataGrid1.ReBind
End Sub

Pero aunque tambien lo he intentado no me carga los datos en el datagrid como lo hace cuando conecto manualmente y cargo la aplicacion...además en el adodc1.connectionstring me añade un montón de texto nuevo y en windows sigue el archivo temporal de "bloqueo de registros" del primer archivo access cargado.

te falta abrir el recordset y asignarle este recordset al datagrid

datagrid.datasource=rs