Private Const ODBC_ADD_DSN As Integer =  1   ' Add data source 
   Private Const ODBC_Driver$ = "InterSystems ODBC"
  
   Declare Auto Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As IntPtr, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean

  Dim driverParams$ = "DSN=MyDSN\0" + _
                            "Namespace=user\0" + _
                            "Password=sys\0" + _
                            "Host=127.0.0.1\0" + _
                            "Port=1972\0" + _
                            "UID=_system\0"

     
        Dim res As Boolean = SQLConfigDataSource(IntPtr.Zero, ODBC_ADD_DSN, ODBC_Driver, driverParams)