Ask User For Input

Hi,

I'm reasonably new to all this, and have read many posts and got most of my answers from reading the posts here! THANKS.

However I need some help with the following:
I have a form that allows someone to input information about products being booked in. However sometimes we have the same product from the same supplier with the same invoice number etc.. but they have individual serial numbers. So the scenario is I have ten items being booked in, they are all the same product from the same supplier but they have individual serial numbers. I have created a do while loop where I can duplicate all the information for each product, but I need it to pop up a box asking the user for the serial number each time it goes through the loop. He is what I have so far.

Dim MyQuantity As Integer
Dim TempSerial As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("BarcodesDB")
MyQuantity = 1
Do While MyQuantity <= Me.Quantity
'insert into table using either a recordset or Append Query
rs.AddNew
rs!Supplier = Me.Supplier.Value
rs!Date = Me.Date.Value
rs!Invoice_Number = Me.Invoice_Number.Value
rs!Pcode = Me.Pcode.Value
rs!Item = Me.Item.Value
rs!Quantity = 1
rs!Serial_Number = Me.Serial_Number.Value 'Get this value from user each loop
rs.Update
MyQuantity = MyQuantity + 1
Loop
rs.Close
Set rs = Nothing

Thanks in advance.