Crystal Reports 10.0 y Visual Basic 6.0

[car_centi]

cual es la cadena de conexion que hiciste al servidor, porque ami no me funciona, hago casi lo mismo que tu y si me muestra el reporte pero la aplicacion de visual basic no responde. aqui te pongo el codigo haber si me puedes ayudar.

Private Sub Command1_Click()
Dim conecta As ADODB.Connection
Dim extrae As ADODB.Recordset

Set conecta = New ADODB.Connection
Set extrae = New ADODB.Recordset

Dim crystal As New CRAXDRT.Application
Dim reporte As New CRAXDDRT.Report

Set crystal = New CRAXDRT.Application
Set reporte = New CRAXDDRT.Report

conecta.Open "Provider=SQLOLEDB;driver={SQL Server};server=(local);uid=sa;pwd=sermed;database= PRUEBAS;"

Set reporte = crystal.OpenReport(App.Path & "\reportes\rep_docentes_pruebas.rpt")

extrae.Open "select * from docentes where clave_doc='" & Text1.Text & "'", conecta, adOpenDynamic, adLockReadOnly

reporte.DiscardSavedData
reporte.Database.SetDataSource extrae
CrystalActiveXReportViewer1.ReportSource = reporte
CrystalActiveXReportViewer1.ViewReport

extrae.Close
conecta.Close
End Sub

estoy trabajando con visual basic 6, sql 2000 y crystal XI