Visual Basic - conecion odbc

hola como estan todos necesito de ayuda necesito crear un DSN para ODBC pero por medio de codigo si alguien sabe acerlo se lo agradesco se que se realiza por medio del pane de control pero imagino que se podria hacer por codigo si alguien me puede ayudar se lo agradezco gracias de antemano gracias

Yo conecto asi a bases de datos de MySql

Public Conexion As ADODB.Connection
Public Resultado As ADODB.Recordset

Conexion.CursorLocation = adUseClient
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host;" _
& "DATABASE=BaseDeDatos;" _
& "UID=Usuario;" _
& "PWD=Clave;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Resultado.Open "SELECT * FROM Proveedores", Conexion

Para conectar el componente Adodc es casi igual

Ado.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host;" _
& "DATABASE=BaseDeDatos;" _
& "UID=Usuario;" _
& "PWD=Clave;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Ado.RecordSource = "select * from materiales"
Ado.Refresh

yo encontré un código que hace eso, crear un DNS por código de un archivo MDB (de Access), mándame un correo para enviarte el código, el problema es que no se como quitarlo, igual por código.

aqui una manera:

'-----Creo los DSN Correspondientes
Crea_ODBC "S", "MAVS", "SQL Server", "dsnMAVS", NomSrv

Sub Crea_ODBC(tipobd As String, NomDB As String, Driver As String, NomDSN As String, Optional Servidor As String)

Dim dbsRegistro As Database
Dim strDescripción As String
Dim strAtributos As String
Dim errBucle As Error

' Genera la cadena de palabras clave.
If tipobd = "S" Then
strAtributos = "DATABASE=" & NomDB & vbCr
Else
strAtributos = "DBQ=" & NomDB & vbCr
End If
strAtributos = strAtributos & "DESCRIPTION=" & NomDSN & vbCr & _
"OemToAnsi=No" & vbCr & _
"SERVER=" & Servidor

' Actualiza el Registro de Windows.
DBEngine.RegisterDatabase NomDSN, Driver, True, strAtributos

End Sub

Este es un codigo que otra persona me colaboro, ya que yo tambien tenia la misma duda.

Andres-Loud_in
Medellin-Colombia

Hey como va el clima por alla?