Creating ODBCs

Hi there,

I was wondering on the possibility of creating an ODBC dynamically, and searched the net, having found this portion of code below at www.devx.com.

The thing is, it declares a function using a dll, and then further down parses constants to this SQLConficDataSource function.

Does anyone know which values should I put in this parameter?
fRequest - numeric

As for lpszDriver - string - I figure that's just the name I want the ODBC to have, right?

thanks


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)

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

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

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