RE:codigo para crear ODBC para sql-server
Hola,
Fijate si te sirve, en realidad estas usando ADO, pero el medio es ODBC, osea que primero tiene que estar creada la conexion con el ODBC.
Dim adoConexion As ADODB.Connection 'Variable de Conexion de ADO
Dim adoComando As ADODB.Command 'Variable de comando de ADO
Dim adoRecordset As ADODB.Recordset 'Variable de recordset o registro de ADO
Set adoConexion = New ADODB.Connection 'Seteo la variable de conexion como un objeto
adoConexion.ConnectionString = "Provider=MSDASQL.1;DSN=Helpdesk" 'Le asigno la Base de datos por conexion de ODBC-DNS
adoConexion.Open 'Abro la conexion segun el DNS
Set adoRecordset = New ADODB.Recordset 'Seteo el recordset segun lo asignado en el connectionstring
adoRecordset.Open "configuraciones", adoConexion, adOpenStatic, adLockOptimistic, adCmdTable 'Abro el recodset de la tabla configuraciones
Saludos.