Crear un DSN de Sistema desde un programa VB

En un módulo declara esta API:
Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
(ByVal hwndParent As Long, ByVal fRequest As Long, _
ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
'declaracion de constantes
Public Const ODBC_ADD_DSN = 1 'Agregar origen de datos
Public Const ODBC_CONFIG_DSN = 2 'Configurar (modificar) origen de datos
Public Const ODBC_REMOVE_DSN = 3 'Quitar origen de datos
Public Const ODBC_ADD_SYS_DSN = 4 'Agregar origen de datos DE SISTEMA
Public Const ODBC_CONFIG_SYS_DSN = 5 'Configurar (modificar) origen de datos DE SISTEMA
Public Const ODBC_REMOVE_SYS_DSN = 6 'Quitar origen de datos DE SISTEMA
Para usar la API crea una función del tipo a:
Function MantenimientoDSN(strDriver As String, Nombre As String, Descripcion As String, Path As String, USUARIO As String, Contraseña As String, Operacion As Long, SoloLectura As Boolean) As Boolean
Const vbAPINull As Long = 0& ' NULL Pointer
#If Win32 Then
Dim intRet As Long
#Else
Dim intRet As Integer
#End If
Dim strAttributes As String
strDriver = "Microsoft Access Driver (*.mdb)"
'Asignamos los parametros separados por null.
strAttributes = "SERVER=" & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=" & Descripcion & Chr$(0)
strAttributes = strAttributes & "DSN=" & Nombre & Chr$(0)
strAttributes = strAttributes & "DBQ=" & Path & Chr$(0)
strAttributes = strAttributes & "UID=" & USUARIO & Chr$(0)
strAttributes = strAttributes & "PWD=" & Contraseña & Chr$(0)
strAttributes = strAttributes & "Readonly=" & CInt(SoloLectura) & Chr$(0)
'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
intRet = SQLConfigDataSource(vbAPINull, Operacion, strDriver, strAttributes)
If intRet Then
MantenimientoDSN = True
Else
MantenimientoDSN = False
End If
End Function
'ejemplo del uso para access
Private Sub Command1_Click()
If MantenimientoDSN("Microsoft Access Driver (*.mdb)", "DSN_PRUEBA", "", "C:\Prueba.mdb", "", "", ODBC_ADD_SYS_DSN, False) Then
MsgBox "DSN Creada"
Else
MsgBox "ERROR AL CREAR DSN"
End If
End Sub
Puedes crear, modificar o eliminar un ODBC de sistema o usuario dependiendo del valor del parámetro Operación de la función MantenimientoDSN.

Hola xabi, me funcionó como decimos aquí en Venezuela AL PELO, GRACIAS...
¿Y te agradecería si no es mucha molestia y está a tu alcance me ayudes a modificarlo para crear un DSN que se conecte al AS/400. Puedes?.
El caso es el siguiente yo me conecto al AS/400 mediante dos(02) aplicaciones "Client Access" y otra llamada "RUMBA" que usan los siguientes Drives respectivamente: Client Access ODBC Driver (32-bit) y RUMBA AS/400 Optimized Server (32-bit) o RUMBA DRDA-32
Como comprenderá en el AS/400 no tengo rutas de archivos como en access (C:\basedato.mdb) lo que si tengo son librerías. Mi pregunta es: como hago para apuntar mi DSN_PRUEBA ahora a una librería del AS/400 llamada "PRUEBA_AS400".
Agradezco mucho que te hayas tomado la molestia de ubicarme el código exacto a mis necesidades con Access y si lo que te pido en esta oportunidad escapa de tus manos te agradezco me lo informes porque de cualquier forma mi valoración será de 5 estrellas a la hora de cerrar esta pregunta. Muy agradecido.

Ok gracias tal como te dije tu respuesta anterior fue de gran utilidad para mi.