trying to copy a few colum to another table

Well i wrote a code that supposed to copy two colums and write it in to a new table with in same db. once i click on the button it does not give me error but when i look at the archived copy of the table i see it blank. Could any one help me what is wrong here! i created the archive copy of the table by just copy and past .

Here is the code:

Option Compare Database

Private Sub CopyFeilds_Click()

Dim db As Database '''dimentioning as db. refreing to db in vba
Dim rs As Recordset ''' dimentioning refering to a table in vba code
Dim rsTemp As Recordset

''' calling openDatabase.
'''set means intialize and object
'' object called db that points to a db called northwind.medb
Set db = OpenDatabase("c:\aspscripts\DAO\northwind.mdb")
'''refereing to specific table called Customers
Set rs = db.OpenRecordset("select * from Employees")
Set rsTemp = db.OpenRecordset("EmployeesArch")

rs.MoveLast
rs.MoveFirst

'''go until end of the records and do not hit to blank record
Do While Not rs.EOF

'''puting the record set in to edit mode to be able to update informatin in record set
rsTemp.AddNew


'''copying feild CustomerID to new table
rsTemp.Fields("LastName") = rs.Fields("LastName").Value
'''copying feild ContactName to new table
rsTemp.Fields("Title") = rs.Fields("Title").Value

''' move to the next record
rs.MoveNext
rsTemp.Update

Loop


''' releasing the objects so it frees memory in client
''' mechine
Set db = Nothing
Set rs = Nothing
Set rsTemp = Nothing

End Sub