Visual Basic - Reportes con SQL Server

Hola muy buenas tengo el siguiente problema:

Tengo una aplicacion en visual Basic 6 con Access, hemos migrado la base de datos a SQL Server 2005. Hasta aqui todo bien, me funciona el programa correctamente, pero a la hora de imprimir los reportes me aparece el siguiente error:

"Cannot open SQL server"

A continuacion os detallo como lo hago para que tengan una idea:

Private Sub cmd_Visualizar_Click()
Dim GP_Conexion as String
Dim GP_Servidor as String
Dim CX as New Recordset

GP_Servidor = "servidor"

GP_Conexion = "Provider=SQLNCLI; " & _
"Initial Catalog=ForoInmo; " & _
"Data Source=" & GP_Servidor & "; " & _
"integrated security=SSPI; persist security info=True;"

CX.Open GP_Conexion

With me.Crystal
.Reset
.WindowState = crptMaximized
.WindowShowPrintSetupBtn = True

.SelectionFormula = ""
.DiscardSavedData = True
.Connect = CX
.SectionFont(0) = ""

.SelectionFormula = "( {V_INMUEBLE.Num_Referencia} = '2' )"
.ReportFileName = "C: pt_fichainmueble.rpt"
.RetrieveDataFiles

.Destination = crptToWindow
.Action = 0
End With
End Sub

En la linea de ".Action" es donde me aparece el error que antes les he comentado.
¿A que se debe este error?.
Me seria de gran ayuda toda la informacion que me puedan facilitar, ya que no tengo ni idea de solucionarlo.
Muchas gracias de antemano.
Un saludo.

Hola de nuevo, soy yo otra vez, se me ha olvidado decir que los reportes los tengo hechos en crystal report 8.

Muchas gracias.

Un saludo.