Display records between two dates of ms-access database using vb6.0

[SriLavi143]

SQL = "SELECT * FROM Expences WHERE ((('Month') Between # " & DTPicker1.Value & "# And # " & DTPicker2.Value & "#))"
   RS.Open , SQL, Conn, adOpenForwardOnly, adLockReadOnly
  
    With DataReport5.Sections("Section1").Controls 'section1 mean that section you create in datareport
   .Item("Text1").DataField = RS("ID").Name
   .Item("Text2").DataField = RS("Month").Name
   .Item("Text3").DataField = RS("Expenditure").Name
   .Item("Text4").DataField = RS("Purpose").Name
   .Item("Text5").DataField = RS("Amount").Name
  
  
  
   End With
            
    Set DataReport5.DataSource = RS
    DataReport5.Show

but is doesn't shows any records on the data report

[9815402440]

you can not filter dates writing query in vb6 code. you have three methods:
first: write parametrised query in ms access that takes two date type parameters and filters data as desired. in vb6 code pass dates as parameter to ms-access query. in this case ms-access will return the filtered data.
second: use data environment designer and make parametrised query
third (not preferred): save date as yyyymmdd in a number field and then filter data as "where date >= 20130412 and date <= 20130512"

hope this will help you
-----------------------
Manpreet Singh Dhillon