dudas con crystal reports

[chato13]

te mando mi codigo ,para ver donde esta el error....me abre el reporte pero no me muestra nada..

Dim dsprueba As New dsDeudasAno 'dataset
dim mireporte As New R_reporte_ano '
Dim cadena As String = "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Mercado_Municipal.mdb"
Dim con As New OleDb.OleDbConnection(cadena)


con.Open()


Dim da As New OleDb.OleDbDataAdapter("SELECT p.pagmesFecPago AS fechaP, p.pagmesPreciototal AS precio, p.pagmesPrecioSaldo AS saldo, b.boxnom AS nombre, c.dpagmesrec AS recibo, c.dpagmespag, c.dpagmesfec FROM C_Pago_x_mes AS p, Box AS b, D_Pago_cuota AS c WHERE (p.pagmesPreciototal<>p.pagmesPrecioSaldo) And (p.pagmesBoxcod=b.boxcod) And (p.pagmesRecibo=0) And (p.pagmesCod=c.dpagmesCod) and p.pagmesFecPago like '*2010' ORDER BY b.boxnom DESC", con)

da.Fill(dsprueba)

mireporte.SetDataSource(dsprueba)

Me.CrystalReportViewer1.ReportSource = mireporte
Me.CrystalReportViewer1.Show()
con.Close()