Crystal Report - ayuda me podriar revisar este codigo por favor

trabajo con visual basic 6.0 y crystal report XI
Y SQL 2000

tengo tres consultas sql hechas como las puedo conectar con el sql para hacer las consultas
Y como puedo conectar mi servidor sql enste codigo con crystal report XI POR AYUDA DE ANTE MANO GRACIAS

Dim crReport As New CRAXDRT.Report ' cargo el informe
Dim crApp As New CRAXDRT.Application 'creo la aplicacion


Screen.MousePointer = vbHourglass

Set crReport = crApp.OpenReport(App.Path & "\ordenCompra.rpt", 1)

"DSN=integral;UID=;" _
& "PWD=sa;DATABASE=baseintegral;'conexion a Base de datos mediante ODBC"

sql "select orden_de_compra.*, clientes.* from Orden_de_Compra, clientes where orden_de_compra.nro_oc like '" & txtNumOrden & "' and clientes.rut_cliente = orden_de_compra.rut_cliente"

" sql = "select detalle_ordencompra.num_orden, detalle_ordencompra.cod_producto, asociados.descripcion from detalle_ordencompra, asociados where detalle_ordencompra.num_orden like '" & txtNumOrden & "' and detalle_ordencompra.cod_producto = asociados.codproducto",

"select * from Observaciones where numorden like '" & txtNumOrden & "'


CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set crReport = Nothing
Set crApp = Nothing
End Sub