hi guys.
i have a code here but i dont know what is the problem.
i have my connection in module.
i want my exdate to show in my listview from database wherein it is less than the date now. but it doesnt show me anything.
Code:
RSconn "select * from tblp_inventory where Exdate < '" & Date & "' "
With rs

Do While Not rs.EOF
    Set a = Me.ListView2.ListItems.Add(, , rs.Fields!item_code)
    a.SubItems(1) = rs.Fields!Generic_Name
    a.SubItems(2) = rs.Fields!exdate
    a.SubItems(3) = rs.Fields!stock_hand
.MoveNext
Loop
rs.Close

End With