what's wrong in SELECT STATEMENT? : im using this code to get the last number in a fields where date of fields is today date:

        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\bysys.mdb")
        rs.Open("Select max(snum) From tblbill where idate = #" & Format(Today.Date, "dd/MM/yyyy") & "# ", cn, 1, 2)
        If IsDBNull(Rs.Fields(0).Value) Then
            TextBox6.Text = 1
        Else
            TextBox6.Text = Rs.Fields(0).Value + 1
        End If
        

sometimes it works correctly
but sometimes, always return 1..
please help!