Whats wrong with this code

[hafizfarooq]

hello
i m using the following code to show report

Public Sub ChkExpense()
 
    MdateQry = " BETWEEN #" & VBA.Format(Me.TxtFrom, "MM/DD/YYYY") & "# And #" & VBA.Format(Me.TxtTo, "MM/DD/YYYY") & "#"
    
    Set Rs = New ADODB.Recordset
    With Rs
        .Open "Select * from Tbl_Adjustment where Adj_Date" & MdateQry, Db, adOpenDynamic, adLockOptimistic
 
        Report.Database.SetDataSource Rs
        CRViewer1.ReportSource = Report
    
 '   Report.RecordSelectionFormula = "{Tbl_Payment_Receipt.Rec_No} = " & FrmRecovery.TxtNo & ""
    
        Report.FormulaFields.Item(1).Text = Chr(34) & TxtFrom.Text & Chr(34)
        Report.FormulaFields.Item(2).Text = Chr(34) & TxtTo.Text & Chr(34)
 
        StrSelectionFormula = "{Tbl_Adjustment.Adj_Date} in Date(" & _
        Format(Me.TxtFrom, "yyyy,m,d") & ") to Date(" & _
        Format(Me.TxtTo, "yyyy,m,d") & ")"
                
        Report.RecordSelectionFormula = StrSelectionFormula
        CRViewer1.ViewReport
    
        CRViewer1.Zoom 95
        Report.DiscardSavedData
    End With
End Sub

The problem is that when i entered the date for the same month, it shows the reuslt lik 01/10/2006 to 30/10/2006

But when i entered the date between 2 months it shows nothing like
01/10/2006 to 10/11/2006

Whats wrong with this code. please help me.
Farooq

[RhinoBull]

You seemed to be a member for about 2.5 years so it's about time you learn how to use VBCODE tags when posting code. Thanks.

[hafizfarooq]

Sorry, RhinoBull. Ishall be crefull next time.
Waht about my question ? Have u any solution ?

[bmahler]

Maybe if you edit your post and put
[vbcode ]

[/Highlight]
around your code, we would be able to read it easier and then could help

[leinad31]

Which had the wrong info, or rather where did the wrong info start appearing?

MdateQry? Recordset? Report object? CRViewer1 output?

[MartinLiss]

Moved.