Visual Basic - Crear odbc desde VB

Amigos tengo el sigiente problema. ya que necesito crear el odbc para conectarme a una base de datos sql sin la necesida de entrar en el pane de control y fuente de datos.
si alguno puede ayudarme se los agradesco.

Option Explicit

Private Const REG_SZ = 1 'Constant for a string variable type.
Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal _
cbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Sub crea_ODBC()

Dim DataSourceName As String
Dim DatabaseName As String
Dim Description As String
Dim DriverPath As String
Dim DriverName As String
Dim LastUser As String
Dim Regional As String
Dim Server As String
Dim lResult As Long
Dim hKeyHandle As Long

DataSourceName = "nombre del que le quieres dar al ODBC"
DatabaseName = "nombre de la base de datos"
Description = "Descripción del ODBC"
DriverPath = "C:\Windows\SYSTEM\sqlsrv32.dll"
LastUser = "usuario de la BD"
Server = "nombre servidor"
DriverName = "SQL Server"

lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" & _
DataSourceName, hKeyHandle)
'Set the values of the new DSN key.
lResult = RegSetValueEx(hKeyHandle, "Database", 0%2