RE:Como Crear un DSN de Usuario
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