Imports Microsoft.Win32
 
Public Class Form1
    Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal _
      hwndParent As Integer, ByVal fRequest As Integer, ByVal lpszDriver As _
      String, _
      ByVal lpszAttributes As String) As Integer
 
    Private Sub CreateDSN()
 
        Dim nResult As Integer
        Dim sAttr As String
        Dim sDSNName As String
        Dim sPort As String
        Dim sPath As String
        Dim sUser As String
        Dim sPwd As String
        Dim sDescription As String
        Dim sDriverName As String
        Dim sServer As String
        Dim sOption As String
 
        sDriverName = "MySQL ODBC 5.1 Driver"
        sDSNName = "Test_DSN"
        sPort = "3307"
        sPath = "muepf_2013"
        sUser = "root"
        sPwd = "nevs"
        sServer = "localhost"
        sOption = "3147784"
        sDescription = "Testbeschreibung"
 
        sAttr = "DSN=" & sDSNName & Chr(0) & "DATABASE=" & sPath & Chr(0) & _
          "DRIVER=" & sDriverName & Chr(10) & "PORT=" & sPort & Chr(0) _
            & "PWD=" & sPwd & Chr(0) & "SERVER=" & sServer & Chr(0) & "UID=" & _
            sUser & Chr(0)
 
        nResult = SQLConfigDataSource(Me.Handle, 4, sDriverName & Chr(0), sAttr)
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        CreateDSN()
    End Sub
End Class

mit freundlichen Grüßen
Sven