More or less than not working.....

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 ;)

Try a sql statement without single quotes around the textbox value.

VB Code:

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

Brucevde

i get Get Data type mismatch incriteria expresion

If I just use = then it works fine?