Crystal Report 9 ó 10? en Visual Basic 6.0!

[car_centi]

alguien por ahi tiene algun ejemplo de como se realiza la conexion desde visual basic al servidor para poder mostrar los datos en el reporte hecho en crystal report.

yo lo estoy haciendo de la siguiente forma pero me muestra el reporte con el filtro que le doy desde la caja de texto pero la aplicacion de visual basic no responde, no se si la conexion esta bien hecha o si la consulta debe de ser de otra manera, alguien por ahi tiene un ejemplo de como se hace.

estoy usando crystal XI, visual basic 6 y sql 2000.

Aqui les pongo el codigo que utilizo...

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