Dim Atributos As String
Atributos = "Description=Descrippcion asdasdasd" & vbCr & _
"OemToAnsi=No" & vbCr & _
"Server=NOMBRE_DEL_SERVER" & vbCr & _
"Database=NOMBRE_BASE_DATOS" & vbCr & _
"Trusted_Connection=NO" & vbCr & _
"Language=us_english"
RegisterDatabase "nombreDSN", "SQL Server", True, Atributos