guardar conexion en REGEDIT

[xochitemol]

ok me toca hacer una pregunta se supone que tengo mi cadena de conexion dentro de mi aplicaion en un modulo la cual es asi.

'''''''''''''''''''''''''''''''''''''''''''''''
***************
''''''''''''''''''''''''''''''''''''''''''''''''''
Sub conexion() 'establezco conexion xon base de datos
Dim ruta As String
On Error GoTo errores
ruta = App.Path & "\RBDC\BDC.mde"
Set cn = Nothing
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & ruta & ";" & _
"Jet OLEDB:Database"
cn.Open
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
********************
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''

ok tengo entendido que la cadena de conexion se puede configurar en el REGEDIT y bueno queria ver como se hace. alguien que me pueda ayudar con esto se los agradeceria.