DSN por Código

[ElierLora]

Saludo a Todos:
Mi Problema es que he creado un DSN por Código, de la siguiente Manera

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _
ByVal hwndParent As Long, _
ByVal Frequest As Long, _
ByVal LpszDriver As String, _
ByVal lpszAttributes As String) As Long

Private Sub CreaDSN()
Dim CadAtrb As String
Dim Dl As Boolean
CadAtrb = "DSN=dsnPlantilla" & Chr(0)
CadAtrb = CadAtrb & "Server=Hanuman" & Chr(0)
CadAtrb = CadAtrb & "Trusted_Connection=True" & Chr(0)
CadAtrb = CadAtrb & "Database=Plantilla" & Chr(0)
If SQLConfigDataSource(0&, 4, "SQL Server", CadAtrb) Then
MsgBox "DSN Creado correctamente"
Else
MsgBox "DSN No Fué Creado"
End If
End Sub

El DSN se crea sin dificultad... Pero al ejecutar los programas que lo utilizan (para visualizar Reportes de Crystal Report) no se logra la coneccion con el servidor en el momento de ejecutar el Reporte... sin embargo, sin hacer nada mas... voy por el panel de control Origenes de Datos, localizo el DSN creado... lo edito sin realizarle ningun cambio... al llegar al final pruebo la coneccion y resulta satisfactoria la prueba. y desde ese momento funcionan los progrmas que antes no funcionaban, es como si el DSN necesitara algún Detalle en los atributos. que por supuesto no sé cómo realizarlo desde el código.

Alguien podría Ayudarme?
Gracias