Visual Basic - CREAR UN DSN DE USUARIO DESDE VISUAL

Hola, un grato saludo para Uds.

Mi pregunta es:
¿Se puede crear un DSN de Usuario desde mi alicación en Visual Basic...
De tal manera que cualdo instale el ejecutable de dicha aplicación esta instale a su vez la BASE DE DATOS (si no esta instalada) y cree un DSN apuntando a la base?

¿Se puede hacer esto? ¿Cómo lo hago?
¿Necesito algo adicional? ¿Qué es?

MUCHAS GRACIAS POR TODO

Sub RegistraBaseDatos()
Dim Descripción As String
Dim Atributos As String
Dim errBucle As Error
Atributos = "Database=" & BASEDATOS & _
vbCr & "Description=" & Descripción & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=" + Server

On Error GoTo Err_Registro
DBEngine.RegisterDatabase NOMBREODBC, "SQL Server", True, Atributos
On Error GoTo 0
´Exit Sub
Err_Registro:
If DBEngine.Errors.Count > 0 Then
For Each errBucle In DBEngine.Errors
MsgBox "Número de error: " & errBucle.Number & _
vbCr & errBucle.Description
Next errBucle
End If
´Resume Next
End Sub
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´*******
PRUEBA CON ESTE CODIGO ...
BASEDATOS = NOMBRE DE LA BD
NOMBREODBC = NOMBRE DEL DSN
SERVER = NOMBRE DEL SERVER DONDE ESTA LA BD,
DESCRIPCION .
saludos...

Como se nota que te lo afanaste de alguna web y no tenes idea ni lo que hace la primera linea.