Crystal Report - visualizar un informe crystalre10,urgente

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=ww", "rww", "ww" 'conexiua ODBC data basiai
rec.Open "select * from products where pname = '" & text7.Text & "'", db, adOpenKeyset, adLockOptimistic 'actualizo la sentencia
Report.Database.SetDataSource rec ' recordseta aktualizau
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
rec.Close

CRViewer1.Visible = True


con este codigo deveria de realizar la selecion pero me aparecen todos los registros.que puedo hace?¿