Module CreateDSN
 
    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
 
 
    Public Function AddDSN() As Boolean
 
        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
 
        sDriverName = "MySQL ODBC 5.1 Driver"
        sDSNName = "Test_DSN"
        sPort = "3307"
        sPath = "muepf_2013"
        sUser = "root"
        sPwd = "nevs"
        sDescription = "Testbeschreibung"
 
        sAttr = "DSN=" & sDSNName & Chr(0) & "PORT=" & sPort & Chr(0) & "DBQ=" _
          & sPath & Chr(0) & "UID=" & _
                sUser & Chr(0) & "PWD=" & sPwd & Chr(0) & "DESCRIPTION=" & _
                sDescription & Chr(0)
 
        nResult = SQLConfigDataSource(0&, 4, sDriverName & Chr(0), sAttr)
        AddDSN = nResult
 
    End Function
 
End Module

mit freundlichen Grüßen
Sven