Crear un DSN desde código

vale si que se puede pero tienes que modificar 2 carpetas del registro de
windows...
te envio un codigo de ejemplo:
//clase AdministrandoODBC:
Imports Microsoft.Win32

Public Class AdministradorODBC

Private Const CLAVEREGISTRO_ODBC_INI As String = "SOFTWARE\ODBC\ODBC.INI\"

Private Const CLAVEREGISTRO_NOMBRES_DSN As String = CLAVEREGISTRO_ODBC_INI +
"ODBC Data Sources"

Private Sub New()

End Sub

Public Shared Sub CrearDSN(ByVal nombreDSN As String, ByVal descripcionDSN
As String, ByVal nombreDriver As String, _

ByVal rutaDriver As String, ByVal idUsuario As String, ByVal nombreServidor
As String)

'Crear la nueva clave de registro para el DSN

Dim claveRegistro As RegistryKey =
Registry.LocalMachine.CreateSubKey(CLAVEREGISTRO_ODBC_INI + nombreDSN.Trim)

'Asignar los parámetros de la clave DSN creada

claveRegistro.SetValue("Description", descripcionDSN.Trim)

claveRegistro.SetValue("Driver", rutaDriver.Trim)

claveRegistro.SetValue("LastUser", idUsuario.Trim)

claveRegistro.SetValue("Server", nombreServidor.Trim)

'Cerrar la nueva clave

claveRegistro.Close()

'Agregar la clave que le permitirá a ODBC Data Sources listar el nuevo DSN

claveRegistro = Registry.LocalMachine.OpenSubKey(CLAVEREGISTRO_NOMBRES_DSN,
True)

claveRegistro.SetValue(nombreDSN, nombreDriver.Trim)

claveRegistro.Close()

End Sub

End Class

//formulario

Private Sub btnCrear_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCrear.Click

AdministradorODBC.CrearDSN(txtDSN.Text, txtDescripcion.Text,
txtNombreDriver.Text, _

txtRutaDriver.Text, txtIdUsuario.Text, txtServidor.Text)

MessageBox.Show("DSN " + txtDSN.Text.Trim + " creado con éxito.")

End Sub

Espero te haya ayudado
saludos,
nathaly
"Grillo" wrote in message
news:%

Hola trons

Sabéis alguno como se podría CREAR un enlace DSN (dentro de Orígenes de
datos (ODBC)) pero desde código.

Gracias