Varias formas de abrir una conexión con RDO. Falta añadir las referencias. (Sacado de MSDN)
*********************************
Ejemplo de la propiedad Connect y OpenConnection: conexión sin DSN mediante OpenConnection
Dim en as rdoEnvironment
Dim cn as rdoConnection
Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="", _
Prompt:=rdDriverNoPrompt, _
Connect:="uid=;pwd=;driver={SQL Server};" _
& "server=SEQUEL;database=pubs;")
debug.print cn.Connect
*********************************
' Crear una conexión sin DSN
' utilizando un objeto rdoConnection autónomo y
' el método EstablishConnection
'
Dim cn As New rdoConnection
Dim qd As New rdoQuery
cn.Connect = "uid=;pwd=;server=SEQUEL;" _
& "driver={SQL Server};database=pubs;" _
& "DSN='';"
cn.cursordriver = rdUseOdbc
cn.EstablishConnection rdDriverNoprompt
debug.print cn.Connect
Set qd.ActiveConnection = cn
*********************************
Ejemplo de la propiedad Connect y OpenConnection: conexión con DSN mediante OpenConnection
El ejemplo siguiente establece una conexión ODBC empleando el método OpenConnection, pero el usuario debe proporcionar toda la información de conexión. En este caso, el ejemplo imprime la propiedad Connect resultante en la ventana Inmediato.
Dim cn As rdoConnection
Dim en As rdoEnvironment
Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="WorkDB", _
Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect
*********************************
Ejemplo de la propiedad Connect: conexión DSN mediante EstablishConnection
El ejemplo siguiente establece una conexión ODBC utilizando un DSN registrado para obtener la mayoría de los argumentos necesarios. El Id. de usuario y la contraseña la proporcionan la seguridad administrada de dominio. En este caso, el ejemplo imprime la propiedad Connect resultante en la ventana Inmediato.
Dim cn As New rdoConnection
Dim qd As New rdoQuery
cn.Connect = "uid=;pwd=;"DSN=WorkDB;"
cn.cursordriver = rdUseOdbc
cn.EstablishConnection rdDriverNoprompt
debug.print cn.Connect
*********************************
Saludos
Pablo