DataReport Error

Hello Guys, I hav a Code For My Report in Daily .I don't know why there is nothing show the records. even though the Error not Popup. This is My code guys. Help Me Guys

Dim rsReport1 As New ADODB.Recordset

rsReport1.Open "Select purchase_date, BarCode, Price,  ProductName, Quantity, TotalPrice From Dailyrecord where purchase_date = " & DTPicker1.Value & " ", acd, adOpenForwardOnly


If rsReport1.RecordCount > 0 Then

    Set DataReport2.DataSource = rsReport1
        With DataReport2
            .Sections("Section1").Controls("txtcode").DataField = "BarCode"
            .Sections("Section1").Controls("txtproduct").DataField = "ProductName"
            .Sections("Section1").Controls("txtqty").DataField = "Quantity"
            .Sections("Section1").Controls("txtprice").DataField = "Price"
            .Sections("Section1").Controls("txtsub").DataField = "TotalPrice"
            .Sections("Section1").Controls("txtdate").DataField = "purchase_date"
            .Show
        End With

End If