Crystal Report - Cannot find SQL Server

tengo un reporte hecho en cristal report conectada a una BD en sql server. al ver la informacion desde cristal report me muestra bien los datos. El problema susede cuando llamo el reporte desde visual basic. no me muestra nada y me aparece este mensaje.

El codigo es el siguiente:

Mensaje = "¿Seleccione <SI> para Imprimir el Empleado Seleccionado y <NO> para Imprimir todos los Empleados."
Estilo = vbYesNoCancel + vbQuestion
Titulo = "Confirmación de Impresion"
Opcion = MsgBox(Mensaje, Estilo, Titulo)
cd.ShowPrinter
With cr
Select Case Opcion
Case vbYes
.Connect = Conexion
.UserName = "xxxx"
.Password = "xxxx"
.ReportFileName = RutaInforme + "empleado.rpt"
.SelectionFormula = "({nombretabla.rut}='" & TxtRut.Text & "')"
Case vbNo
.SelectionFormula = ""
.ReportFileName = RutaInforme + "empleado.rpt"
Case vbCancel
Exit Sub
End Select
.DiscardSavedData = True
.DataFiles(0) = "nombretabla"
.PrintReport
If .LastErrorNumber <> 0 Then
MsgBox .LastErrorString
End If
End With

Como lo soluciono?