no se como se hace la conexion al servidor con visual basic 6, sql 2000 y crystal XI

[car_centi]

hola tengo el siguiente problema: ya tengo hecho el reporte en crystal report y cuando lo mando a llamar desde visual basic lo muestra sin problemas. Lo que quiero hacer es conectar la base de datos desde visual basic para llenar el reporte con una consulta diferente, pero me manda un error de conector de base de datos. la verdad no se si estoy haciendo bien la conexion a la base de datos o si se tiene que hacer de otro modo la consulta.
Necesito ayuda urgente, aqui les pongo el codigo que estoy utilizando.

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 utilizando el crystal 11, sql server 2000 y visual basic 6.