Visual Basic - Como Crear un DSN de Usuario

Necesito crear un DSN de Usuario o de Sistema por el codigo de VB6.

Gracias. por la Atencion

Andres
Medellín - Colombia

aqui una manera:

'-----Creo los DSN Correspondientes
Crea_ODBC "S", "MAVS", "SQL Server", "dsnMAVS", NomSrv

Sub Crea_ODBC(tipobd As String, NomDB As String, Driver As String, NomDSN As String, Optional Servidor As String)

Dim dbsRegistro As Database
Dim strDescripción As String
Dim strAtributos As String
Dim errBucle As Error

' Genera la cadena de palabras clave.
If tipobd = "S" Then
strAtributos = "DATABASE=" & NomDB & vbCr
Else
strAtributos = "DBQ=" & NomDB & vbCr
End If
strAtributos = strAtributos & "DESCRIPTION=" & NomDSN & vbCr & _
"OemToAnsi=No" & vbCr & _
"SERVER=" & Servidor

' Actualiza el Registro de Windows.
DBEngine.RegisterDatabase NomDSN, Driver, True, strAtributos

End Sub