-   
-   
-     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 
-   
-   
-   
-