Crystal Report - CRYSTAL & V.B 6.0

ESTE ES MI CODIGO

Dim Etiqueta As Variant
Dim SERVER_SQL As String
Dim BD As String
Dim user_sql As String
Dim pwd_sql As String
SERVER_SQL = "ABRAHAM"
BD = "Gobcan ya con las relaciones 25 de enero 2005SQL"
user_sql = "USUARIO"
pwd_sql = "1234"
Etiqueta = 1
Screen.MousePointer = vbHourglass
Set Report = crapp.OpenReport(App.Path & "\Report2.rpt", 1)
Report.Database.Tables(1).SetLogOnInfo SERVER_SQL, BD, user_sql, pwd_sql
Report.RecordSelectionFormula = "{usuario_gobcan.id_sexo} = " & Etiqueta ' esto como se utiliza
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.EnableRefreshButton = True
Screen.MousePointer = vbDefault

EL ERRO QUE ME DA ES CRViewer1.ViewReport Y DICE "ERROR ODBC MICROSOF ADMINISDRADOR DE CONTROLADORES ODBC CONEXION NO ABIERTA
SI ALGUIEN SABE CUAL ES EL ERROR
GRACIAS

Que version de Crystal es David???

crystal report 8 de verdad que si me puedes ayudar te lo agradeceria.

EL detalle es con la conexion... MIRA MI CODIGO:
EN UN MODULO
Public db As New ADODB.Connection
Public rec As New ADODB.Recordset
Public Report As New Orden1
EN EL LOAD DEL FORM
db.open "dsn=Nombre del ODBC","Usuario","password" 'conexion a Base de datos mediante ODBC
rec.Open "select * from ordencompra where orden = '" & IngOrden.Text1 & "' order by corr", db, adOpenKeyset, adLockOptimistic 'actualizo la sentencia
Report.Database.SetDataSource rec 'actualizo el recordset
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
rec.Close