Visual Basic - visual basic6 & crystal report 8

(webdelprogramador)
Que tal tio como le va mire yo estoy haciendo unos reportes con visual basic 6.0 y crysta report 8 en el cual realizo el reporte fuera de visual y después lo llamo de un formulario el problema es que este solo funciona en donde lo estoy programando cuando voy a otro servidor el cual tiene la misma base de datos no funciona claro esta puede se con otro nombre pero su estructura es igual y el nombre del servidor puede cambiar yo creia que con esta instrucción solucionaba mi problema
reporte.Database.Tables(1).SetLogOnInfo SERVIROP, BASEDP, USUARIP, PASSWORDP
los cuales son variables donde meto el servidor,la base de datos,elusuario,passwordp ha pero yo utilizo mi servidor con autentificacion de windons y las variables USUARIP =" " y PASSWORDP=" "
quedan así . si quieres ver el codigo

Dim reporte As New CRAXDRT.Report
Dim crapp As New CRAXDRT.Application

Private Sub Form_Load()

Set reporte = crapp.OpenReport(App.Path & "\rep_pasaporte.rpt", 1)
reporte.Database.Tables(1).SetLogOnInfo SERVIROP, BASEDP, USUARIP, PASSWORDP
reporte.RecordSelectionFormula = "{REPORTE_PASAPORTE.fec_pasaporte} in DateTime " & r_fecha_desde & " to DateTime " & r_fecha_hasta & ""
Me.CRViewer1.EnableRefreshButton = True
Me.CRViewer1.ReportSource = reporte
Me.CRViewer1.ViewReport
End Sub
Private Sub Form_Resize()
Me.CRViewer1.Top = 0
Me.CRViewer1.Left = 0
Me.CRViewer1.Width = ScaleWidth
Me.CRViewer1.Height = ScaleHeight
End Sub
el reporte lo realizo fuera de visual basic 6.0 y lo hago de esta forma lo pongo en blanco me voy a mas origenes de datos escojo ole db le digo establecer nueva conexion le doy a agregar escojo el provider sql server pongo mi servidor y mi base de datos y agrego mis campos que es primer nombre y fecha de pasaporte la cual tiene la formula
{REPORTE_PASAPORTE.fec_pasaporte} in DateTime (2005, 05, 01,00, 00, 00) to DateTime (2005, 05, 31,00, 00, 00) que esta se modifica en mi linea de Visual Basic
reporte.RecordSelectionFormula = "{REPORTE_PASAPORTE.fec_pasaporte} in DateTime " & r_fecha_desde & " to DateTime " & r_fecha_hasta & "" para que el usuario pueda poner de que rango a que rango quiere que se liste
Gracias