why doesn't this code work?
there is one textbox where a number is entered and then i want to write that number and date and time and another date to table.


Private Sub txtOrdNo_AfterUpdate()
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Billing_Audit", dbOpenTable)

While Not rs.EOF
rs.AddNew
rs("Invoice_Date") = Me.txtDate
rs("Order_No") = Me.txtOrdNo
rs("Date_Scanned") = Format(Now, "yyyymmdd")
rs("Time_Scanned") = Format(Now, "hhnnss")
rs.Update
Wend
End Sub