Why does this not work?


If DataEnvironment1.rsISSUED1033.State = adStateOpen Then DataEnvironment1.rsISSUED1033.Close

DataEnvironment1.Commands("ISSUED1033").CommandType = adCmdText
DataEnvironment1.Commands("ISSUED1033").CommandText = "SELECT * FROM ISSUED1033 WHERE DysOnIssue >= '" & Text4.Text & "'"
DataEnvironment1.ISSUED1033

DataReport6.DataMember = "ISSUED1033"

DataReport6.Show

'allows a refresh with new data without having to close the report first.
DataReport6.Refresh

The DysOnIssue contains numbers of days that the equipment has been issued and text4 contains a number of day's that you wish to see equipment issued over. But it does'nt work...HELP!

thx