VisualBasic.NET + Crystal Report

[Leonardo Ruiz]

Olá Pessoal,

Preciso de uma ajuda,

Como consigo fazer um relatório em crystal que é gerado a partir de filtros que são definidos em uma Query SQL?

Eu carrego o relatório assim:

Dim ds As New DataSet()

Dim cmd As New OleDb.OleDbCommand(strSql, conn)

Dim adaptor As New OleDb.OleDbDataAdapter(cmd)

Dim crpt As New CrystalReport1

Dim strReportPath As String

adaptor.Fill(ds)

strReportPath = String.Concat(Replace(My.Application.Info.DirectoryPath(), "\bin\Debug", ""), "\CrystalReport1.rpt")

crpt.Load(strReportPath)

conn.Open()

crpt.SetDataSource(ds)

CrystalReportViewer1.ReportSource = crpt

E ao ser gerado ele lista TODOS os dados da Tabela como se não houvesse nenhum Filtro.

Fico Aguardando

Grato

Leonardo