Crystal Report - El servidor no esta abierto

Que tal amigos el problema es que realizo un reporte con la base de datos que esta servidor pero cuando quiero que mi programa funcione en otro servidor meda problema la base de datos es la misma todo es igual pero el nombre del servidor cambia .
Miren el codigo .......

Set reporte = crapp.OpenReport(App.Path & "\rep_pasaporte.rpt", 1)
reporte.Database.Tables(1).SetLogOnInfo SERVIROP, BASEDP, USUARIP, PASSWORDP
'reporte.Database.Tables(1).SetLogOnInfo GOBCAN, BDGOBCAN, "", ""
reporte.RecordSelectionFormula = "{REPORTE_PASAPORTE.fec_pasaporte} in DateTime " & r_fecha_desde & " to DateTime " & r_fecha_hasta & ""
'reporte.RecordSelectionFormula = "{REPORTE_PASAPORTE.fec_pasaporte} in DateTime " & r_fecha_desde & " to DateTime " & r_fecha_hasta & " and not {REPORTE_PASAPORTE.fallecido}"
Me.CRViewer1.EnableRefreshButton = True
Me.CRViewer1.ReportSource = reporte
Me.CRViewer1.ViewReport

ok la conexión cuando estoy diseñando el reporte es mediante mas orígenes de datos le doy establecer nueva conexión ,agregar, oledb sql server le doy a siguiente busco el servidor y la vista que me hace el filtro