Crystal Report - ayudaaaaaaaaaaaaa crystalreports

consigo visualizar el informe pero no realiza la selecion,cual es el error.la data abse es de mysql.gracias

Dim Appl As New CRAXDRT.Application
Set crystall = New CRAXDRT.Application
Set Report = crystall.OpenReport("produkdenak.rpt")
Report.DiscardSavedData
Set db = New ADODB.Connection
db.Open "dsn=be9n", "ot", "lkhg778905fwaz2" 'conexiua ODBC data basiai
rec.Open "select * from products where products.pname = '" & Text7.Text & "' ", db, adOpenKeyset, adLockOptimistic 'actualizo la sentencia
a = "select * from products where products.pname = '" & Text7.Text & "'"
MsgBox a
Report.Database.SetDataSource rec ' recordseta aktualizau
CRViewer1.ReportSource = Report
Report.DiscardSavedData
CRViewer1.Refresh
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
rec.Close

CRViewer1.Visible = True