Dim fromdate, todate As String
fromdate = Mid(fromdatetxt , 4, 2) + "/" + Mid(fromdatetxt , 1, 2) + "/" + Mid(fromdatetxt , 7, 4)
todate = Mid(todatetxt, 4, 2) + "/" + Mid(todatetxt, 1, 2) + "/" + Mid(todatetxt, 7, 4)
sql = ""
sql = "select * from saninvoice where orderdate>=# " & fromdate & " # and orderdate<=# " & todate & " # order by orderdate"
Set rs = conn.Execute(sq l)
fromdate = Mid(fromdatetxt , 4, 2) + "/" + Mid(fromdatetxt , 1, 2) + "/" + Mid(fromdatetxt , 7, 4)
todate = Mid(todatetxt, 4, 2) + "/" + Mid(todatetxt, 1, 2) + "/" + Mid(todatetxt, 7, 4)
sql = ""
sql = "select * from saninvoice where orderdate>=# " & fromdate & " # and orderdate<=# " & todate & " # order by orderdate"
Set rs = conn.Execute(sq l)