Copy Data from Selected Record and place in new db and table on another form?

[Quizton]

Need a little bit of help with this one, I have searched for other alternatives as well as searching codebank surprised its not in there since i remember something along the lines of moving one table to the next wich is kinda what Im doing here so if I could get some good help on this one It would be very helpful
I have a delete cmd and ATM it is set to delete the record all together. I recently added a new msg to the delete cmd "Employee has been moved to Past employee list"
So here is the question I was wondering were would I place this new code and how would I go about doing it? I have tried multiple formulas and I am missing something still. Here Is my code that already displays the message but have not placed the move record command to it yet.
vbCode___________________________________________________________
Private Sub cmdDelete_Click()
errormsg = MsgBox("Are You Sure You Want To Delete This Employee", vbYesNo, "Delete Record")
If errormsg = vbYes Then
errormsg = MsgBox("Employee Has Been Moved To Past Employee List", vbOKCancel, "Delete Record") <--Here is were I must move to new db table?
If errormsg = vbOK Then
rs.Delete <--Maybe a MoveTo PastRecord I cant quite get it right?
Set rs = db.OpenRecordset("EMPDATA", dbOpenTable)
list
txtFirstName.Text = vbNullString
txtFirstName.Enabled = True
txtLastName.Text = vbNullString
txtLastName.Enabled = True
txtEmployed.Text = vbNullString
txtEmployed.Enabled = True
txtUnemployed.Text = vbNullString
txtUnemployed.Enabled = True
cmdSave.Enabled = True
cmdCancel.Enabled = True
cmdadd.Enabled = True
Else
Exit Sub
End If
End If
End Sub
______________________________________________________________
Well there is a sample of what I have at this current time I will gladly take any info on this matter and thanks in advance to all you pro's and good helpers out there
thanks,
Quiz