How to create SystemDSN through VB Code

I've started my career as a VB programmer. I've created an Access database with some password set to it. Now I want to create a SystemDSN for that database ,that can be generated through VB code. This is the code that I've written for the same resulting some error.

Option Explicit
Private Declare Function AccessConfigDatasource Lib "ODBCJT32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Private Const ODBC_ADD_SYS_DSN = 4
Public Function CreateAccessDSN(DSNName As String, DatabaseFullPath As String) As Boolean
Dim sAttributes As String
If Dir(DatabaseFullPath) = "" Then Exit Function
sAttributes = "DSN=" & DSNName & Chr(0)
sAttributes = sAttributes & "DBQ=" & DatabaseFullPath & Chr(0)
CreateAccessDSN = CreateDSN("Microsoft Access Driver(*.mdb)", sAttributes)
End Function
Public Function CreateDSN(Driver As String, Attributes As String) As Boolean
CreateDSN = AccessConfigDatasource(0&, ODBC_ADD_SYS_DSN, Driver, Attributes)
End Function

There is example code at www.mvps.org.