Crystal Report - Cannot Open SQL Server

HOLA, ALGUIEN PUEDE AYUDARME, TENGO EL SIGUIENTE PROBLEMA:
CUANDO EJECUTO MI PROGRAMA HECHO EN VISUAL BASIC, QUE ESTA VINCULADO A UNA BASE DE DATOS SQL, CUANDO QUIERO ABRIR UN REPORTE HECHO EN CRYSTAL REPORTS, ME APARECE EL SIGUIENTE PROBLEMA:

Cannot Open SQL Server

Y SE QUEDA EN LA PARTE DEL CODIGO ".Action=1"

ALGUIEN SABE QUE PUEDA ESTAR PASANDO?, EL CODIGO DE MI PROGRAMITA ES EL SIGUIENTE:

Private Sub Command1_Click()
With CrystalReport1
Dim sem As Integer
sem = Texto1.Text
.ReportFileName = App.Path & "\test1.rpt"
.ReportTitle = "Promotores de Supervisor '" & Texto.Text & "' "
.SelectionFormula = "{equipo_vtas.nombre}='" & Texto.Text & "' and {calendario.no_semana}= " & sem & ""
.SortFields(0) = "+{calendario.no_semana}"
.WindowState = crptMaximized
.WindowMaxButton = False
.WindowMinButton = False
.Destination = crptToWindow
.WindowTitle = "Informe de Promotores y sus Ventas"
.Action = 1
End With
End Sub

Ke tal.

Veo ke abres el reporte (ruta y nombre), pero no veo en donde estableces la conexion a Sql Server (nombre del servidos, nombre de la DB, usuario, contraseña).

Saludos

Tengo el mismo problema si alguien sabe la solución Gracias