Create ODBC DSNs Dynamically

 
Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As
Long, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal
lpszAttributes As String) As Long

Function PrepareDSN(ByVal strServerName As String, ByVal strDBName As String,
ByVal strDSN As String, ByVal strDBUser As String, ByVal strDBUserPassword As
String) As Boolean
On Error GoTo error_hdl
    Dim boolError As Boolean
    Dim strDSNString As String
    PrepareDSN = False

    strDSNString = Space(MAX_BUFFER_SIZE)
    strDSNString = ""
    strDSNString = strDSNString & "DSN=" & strDSN & Chr(0)
    strDSNString = strDSNString & "DESCRIPTION=" & "DSN Created Dynamically On "
 & CStr(Now) & Chr(0)
    strDSNString = strDSNString & "Server=" & strServerName & Chr(0)
    strDSNString = strDSNString & "DATABASE=" & strDBName & Chr(0)
    strDSNString = strDSNString & Chr(0)

   If Not CBool(SQLConfigDataSource(0, _
                        ODBC_ADD_DSN, _
                        ODBCDriverDescription, _
                        strDSNString)) Then
        boolError = True
        Msgbox("Error in PrepareDSN::SQLConfigDataSource")
   End If

    If boolError Then
        Exit Function
    End If
    PrepareDSN = True
    Exit Function

error_hdl:
    msgbox "PrepareDSN_ErrHandler::" & Err.Description
End Function