Visual Basic - reiniciar ado

tengo un ado, al que se le indica la ruta de la que leer, pero cuando una vez ejecutado el programa y abierto una base de datos, cuando intento abrir otra me sigue abriendo la inicial

este es el codigo:
(supongo que lo que falla es que no reinicializa la conexion)

form1.CommonDialog2.ShowOpen
Cad = form1.CommonDialog2.FileName


With form1.AdoAcces
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Cad & ";"
' Indicarle de que tabla vamos a leer los datos
.RecordSource = "Datos"
End With

Set form1.CbAuxProFecha.DataSource = form1.AdoAcces
Set form1.CbAuxProNivel.DataSource = form1.AdoAcces
For X = 1 To 8
Set form1.CbAuxProNivelF(X).DataSource = form1.AdoAcces
Next

form1.CbAuxProFecha.DataField = "DiaHora"
form1.CbAuxProNivel.DataField = "LS"
For X = 1 To 8
form1.CbAuxProNivelF(X).DataField = "LF" & X
Next

Hola Miguel

lo que te falta es lo siguiente

With Form1.AdoAcces
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Cad & ";"
' Indicarle de que tabla vamos a leer los datos
.RecordSource = "TabCalculos"

.Refresh '<---------- esto te falta, refrescar el ADO

End With

Saludos

Ariel....