Crear DSN MySQL mediante codigo

[dargor]

Saludos a todos, expongo mi dificultad porque he pasado todo el dia buscando y todavía no encuentro solución a mi problema y es importante que lo resuelva.
Necesito crear DSN de sistema para MySQL mediante código para utilizar con reporteria, debe ser ODBC, no con el conector .net de mysql. he encontrado este codigo que es para SQL Server y trate de adaptarlo pero me tira el siguiente error:
"Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada." y no, mi ram no creo que este dañada, he leído que ese mensaje se ha presentado a otros que han intentado hacer lo mismo. este es el codigo:

Código vb:

Public Class Form1
    Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _
    ByVal hwndParent As Long, ByVal fRequest As Long, _
    ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dl As Long                                 ' Valor devuelto por la función API
        Dim sAttributes As String                  ' Aributos
        Dim sDriver As String                       ' Nombre del controlador
        Dim sDescription As String                ' Descripción del DSN
        Dim sDsnName As String                  ' Nombre del DSN
 
        Const ODBC_ADD_SYS_DSN As Long = 4         ' Se creará un DSN de sistema
        Const vbAPINull As Long = 0&                         ' Puntero NULL
 
        ' Establecemos los atributos necesarios
        sDsnName = "Ejemplo_DSN_Sistema"
        sDescription = "Nuevo DSN de sistema para SQL Server"
        sDriver = "MySQL ODBC 5.1 Driver"
 
        ' Los pares de cadenas acabarán en valor Null
        sAttributes = "DSN=Ejemplo_DSN_Sistema;Description=Nuevo_DSN_de_sistema;Server=LOCALHOST;" & _
                    "User id=USER;Password=PASS;database=DATABASE;"
 
        ' Si deseamos utilizar la autenticación de Windows NT, deberemos de
        ' especificarlo en la cadena de atributos
        'sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)
 
        ' Creamos el nuevo origen de datos de usuario especificado.
        ' Si deseamos que aparezca el cuadro de diálogo, tendremos que
        ' especificar la propiedad «hWnd» del formulario donde se realiza
        ' la llamada a la función API.
        dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)
 
        If dl Then
            MsgBox("Se ha creado el DSN de sistema.")
        Else
            MsgBox("No se ha podido crear el DSN de sistema.")
        End If
    End Sub
End Class
 

Utilizo Visual Studio 2008 Profesional y lenguaje visual basic, ojala me puedan ayudar, lo agradeceria mucho.

[gnzsoloyo]

¿Y por qué razón necesitas que sea ODBC y no .Net?
Es prácticamente hacer un downgrade...
Además, ¿qué sentido tiene llamar a una DLL externa cuando el VS2008 ya incluye el Namespace ODBC?
A eso debes sumarle que MySQL también tiene su propio driver de ODBC.

Dale una leída a esta página, tal vez te ayude: http://www.connectionstrings.com/mysql

[dargor]

La razon porque necesitaba odbc es que al querer hacer reportes en cristal no me salían los datos en el reporte, solo con odbc, los datos los mandaba a llamar desde el dataset peeeeero analizando un poco me di cuenta que no habia cargado el dataset antes de presentar el reporte, era por eso que me venia vacio, pero ya lo resolvi y gracias por la respuesta que tambien me sirvio de guia.
En caso alguien mas tenga esta duda o problema dejo el codigo:

Código vb:

Dim rpt As New CrystalReport5() 'Tu reporte ya creado.
        Dim myConnection As MySqlConnection
        Dim MyCommand As New MySqlCommand
        Dim myDA As New MySqlDataAdapter
        Dim myDS As New MIBASEDataSet() 'tu dataset ya creado.
 
        Try
 
            myConnection = New MySqlConnection("server=localhost;user id=USER;password=PASS;database=BASEDEDATOS;")
            MyCommand.Connection = myConnection
            MyCommand.CommandText = "SELECT * FROM TABLA"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
 
            myDA.Fill(myDS, "TABLA")
            rpt.SetDataSource(myDS)
            CrystalReportViewer1.ReportSource = rpt
 
 
        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 

Todo esto dentro de un evento, en mi caso evento load de un formulario.

En caso alguien pueda ayudarme con la creación de odbc por código seria bienvenido, no esta demás aprender.

[gnzsoloyo]

Eso esta muuucho mejor.