Vinculación de una de SQL Server a Access á través de código

[Leyderc]

Saludos,

Tengo un problema grave, y es que no he podido crear un ODBC en tiempo de ejecución para una Conexión a una BD de SQL Server que está en otro equipo distinto al mio (pero, si la realiza para la local).

No se si exista otra forma (que no requiera crear el ODBC manualmente) que pueda utilizar para vincular las tablas.

El Código que estoy utilizando es (aunque lo he modificado muchas veces ya haciendo intentos):

Dim EquipoLocal As String
#If Win32 Then
Dim intRet As Long
#Else
Dim intRet As Integer
#End If

Dim strDriver As String
Dim strAttributes As String

'He intentado con estos dos Drivers y con SQLOLEDB.1
strDriver = "Provider=SQLOLEDB"
'strDriver = "SQL Server"

'Asignamos los parametros separados por null.
strAttributes = "SERVER=" & strServer & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes & "DSN=Presupuesto_SQL" & Chr$(0)
strAttributes = strAttributes & "DATABASE=Master" & Chr$(0)

'Acá valido si el Equipo al que me estoy conectando es el mismo
'sobre el que estoy iniciando sesión
If strEquipo <> strServer Then
strAttributes = strAttributes & "UID=Ultimus5" & Chr$(0)
strAttributes = strAttributes & "PWD=Ultimus5" & Chr$(0)

'Esta es una Condición que usé después
strAttributes = strAttributes & "WSID=CONDCI1024C" & Chr$(0)
End If

'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
If intRet Then
MsgBox "Creado"
Else
MsgBox "Fallo "
End If