db.Search("DeliveredDate > @Adjust(@now; 0; 0; 0; 0; 0; 0)", Nothing, 0)

Sub test() 
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.navigate ""
Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
Set what = .document.getElementsByTagName("input") 
                  what(0).Value = "123456789"
                  what(5).Value = "741852963"
             .document.forms(0).submit 
Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
End With
Set objIE = Nothing
End Sub