Visual Basic - adodc por codigo

Quisiera q al cambiar mi programa de ordenador no tenga q cambiar la direccion de la bd. e encontrado q poniendo esto en el form load deberia funcionar,pero no se si me falta algo.

Dim cn As New Connection

cn.Provider = \"Microsoft.Jet.OLEDB.4.0\"
cn.Open App.Path + \"\\Productos.mdb\"

tampoco se,si tengo q borrar como busco la bd sin codigo o no es necesario.
gracias de antemano

Dim Cn As New Connection
Set Cn = New ADODB.Connection
coneccion = App.path & "\Productos.mdb"
With Cn
.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=" & coneccion
.Open
End With

Perdona Javi.es q al poner ese codigo y borrar la ruta q tenia puesta en las propiedades del adodc,me da 1fallo de autenticación y no se pq.
¿acaso no deberia borrar la ruta en las propiedades del adodc o me falta poner algo mas?
gracias y perdona las molestias

Si vas a trabajar con codigo, deberias borrar el adodc y toda relacion que exista con los controles de tu formulario. Por otro lado estas trabajando con Bd Access 2000 o 97. Puesto que si es con 97 en vez de 4.0 seria 3.51

No estoy trabajando con codigo los adodc,solo pongo las propiedades necesarias en el adodc y no lo ago por codigo,me resulta mas facil asi,pq por codigo el adodc no lo e utilizado nunca.
¿no podria mantener el adodc y poner por codigo la ruta de la db?
estoy trabajando con Access 2000 y seria el 4.0
gracias

coneccion = App.Path & "\Productos.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=" & coneccion
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "Select * from Metales"
Set DataGrid1.DataSource = Adodc1

' Mira con este codigo puedo llenar un datagrid con el adodc

Pues lo dixo,q ya me funciona como qeria.
MUCHAS GRACIAS y perdona por robarte tu tiempo