Dear PRogrammers,

how come this piece of code works :

strSQL = strSQL & "SELECT *FROM(Requests) "
        strSQL = strSQL & "WHERE ([StartDate]= #" & kStart & "#);"

**********Note the '=' sign before the #

but this code does not :

strSQL = strSQL & "SELECT *FROM(Requests) "
        strSQL = strSQL & "WHERE ([StartDate]>= #" & kStart & "#);"

returns no result when I used >= ...? no error just does not return any results....


Here is the rest of the code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim StrConnect As String
        Dim cn As ADODB.Connection
        Dim rs As ADODB.Recordset

        'Dim nStart As String
        Dim nStart As Date
        Dim nStop As Date
        Dim nItem As String
        Dim LStart As Date
        Dim LStop As Date
        Dim strSQL As String
        Dim kStart As Date
        Dim kStop As Date


        kStart = txtStart.Text
        kStop = txtEnd.Text

        StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\DATA\ACCESS\13FloorEquipment.mdb"

        cn = New ADODB.Connection()
        cn.Open(StrConnect)
        nItem = CboItems.Text



        strSQL = strSQL & "SELECT *FROM(Requests) "
        strSQL = strSQL & "WHERE ([StartDate]>= #" & kStart & "#);"

        'strSQL = strSQL & "SELECT *FROM(Requests) "
        'strSQL = strSQL & "WHERE ([ItemName]= '" & nItem & "');"


        'strSQL = strSQL & "AND ([StartDate]>= #" & LStart & "#)"
        'strSQL = strSQL & "AND ([EndDate]<= " & LStop & "));"

        'WHERE (((Requests.ItemName)="LapTop") AND ((Requests.StartDate)>#11/1/2003#) AND ((Requests.EndDate)<#11/21/2003#));
        MsgBox(kStart)
        MsgBox(kStop)
        MsgBox(strSQL)
        rs = cn.Execute(strSQL)


        While Not rs.EOF
            nStart = rs.Fields("StartDate").Value.ToString.TrimEnd
            nStop = rs.Fields("EndDate").Value.ToString.TrimEnd
            nItem = rs.Fields("ItemName").Value.ToString.TrimEnd
            LStart = rs.Fields("StartTime").Value.ToString.TrimEnd
            LStop = rs.Fields("EndTime").Value.ToString.TrimEnd

            Listbox1.Items.Add(nItem & vbTab & nStart & vbTab & LStart & vbTab & nStop & vbTab & LStop)
            rs.MoveNext()
        End While


        rs.Close()
        cn.Close()

    End Sub