ODBC - crear dsn para access con VB

Chavales, hay alguno por ahí que sepa como crear un dsn dinámico para una BD access mediante código, y muchas gracias

Aquí tienes un ejemplo con RDO (necesitas referenciar la librería Microsoft Remote Data Object)

Un saludo.

Dim lrdoEnv As rdoEnvironment
Dim lrdoCon As rdoConnection
Dim lstrAttribs As String

\'* Construcción del DSN
lstrAttribs = \"Description=xxxx\" _
& Chr$(13) & \"SERVER=xxxx\" _
& Chr$(13) & \"Database=xxxx\"
rdoEngine.rdoRegisterDataSource \"xxxx\", _
\"Oracle ODBC Driver\", True, lstrAttribs

\'* Prueba de conexión
Set lrdoEnv = rdoEngine.rdoEnvironments(0)
Set lrdoCon = lrdoEnv.OpenConnection( _
dsname:=\"xxxx\", _
Prompt:=rdDriverNoPrompt, _
Connect:=\"UID=xxxx;PWD=xxxx;\")
MsgBox lrdoCon.rdoTables(0).Name
lrdoCon.Close: Set lrdoCon = Nothing
lrdoEnv.Close: Set lrdoEnv = Nothing

holaaaa
Yo quiero algo parecido diríamos, pero lo que realmente quiero es crear mediante codigo, lo que uno hace manualmente en el administrador de ODBC, crear un ODBC mediane codigo y que se guarde en el administrador de ODBC, no se si me explico