RE:Creación de orígenes de datos ODBC
Referencia (menú: proyecto/referencias) la biblioteca de microsoft remote data objects (RDO) y después ejecuta el siguiente código:
Dim lrdoEnv As rdoEnvironment
Dim lrdoCon As rdoConnection
Dim lstrAttribs As String
'* Construcción del DSN
lstrAttribs = "Description=Descripción del DSN" _
& Chr$(13) & "SERVER=nombre_del_servidor" _
& Chr$(13) & "Database=nombre_de_la_base_de_datos"
rdoEngine.rdoRegisterDataSource "nombre_del_dsn", _
"Oracle ODBC Driver", True, lstrAttribs
'* Prueba de conexión
Set lrdoEnv = rdoEngine.rdoEnvironments(0)
Set lrdoCon = lrdoEnv.OpenConnection( _
dsname:="nombre_del_dsn", _
Prompt:=rdDriverNoPrompt, _
Connect:="UID=usuario;PWD=clave;")
MsgBox lrdoCon.rdoTables(0).Name
lrdoCon.Close: Set lrdoCon = Nothing
lrdoEnv.Close: Set lrdoEnv = Nothing