adding records to an empty table error message

i have a table with no records.
when i add the records the first
one gives me an error of no current
record...

how can i avoid this?

this is the code i have used...

i have one textbox that accepts a number, so upon pressing enter these next steps take place writing to a table. however, it doesn't work correctly after the second entry.

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

Hi,

DO NOT RS.MOVENEXT. This causes your table pointer to move to the next record when there is not even a first record.

HTH,

Preeti

Hi,

DO NOT RS.MOVENEXT. This causes your table pointer to move to the next record when there is not even a first record.

HTH,

Preeti