cerco di copiare un record da una tabella all'altra dello stesso db in questo modo

codice:
strSQL="SELECT * FROM Nonpagati WHERE Codice='"& Codice &"'"
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open strSQL, conn 
ID = rs(0)
Nome = rs(1)
Cognome = rs(2)
Mail = rs(3)
Regalo = rs(8)
NomeRef = rs(10)
CognomeRef = rs(11)
MailRef = rs(12)
Data = Date()
Ora = Time()
rs.Close
set rs = Nothing

strSQL="SELECT * FROM Pagati"
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open strSQL, conn 
rs.AddNew 
rs("ID") = ID 
rs("Data") = Data
rs("Ora") = Ora
rs("Nome") = Nome 
rs("Cognome") = Cognome 
rs("Mail") = Mail 
rs("Codice") = Codice
rs("Regalo") = Regalo 
rs.Update 

objConn.Execute "UPDATE Pagati SET Bonus = Bonus + 1 WHERE Nome=" & NomeRef & " AND Cognome='"& CognomeRef &"' AND Mail='"& MailRef &"'" 
rs.Close
set rs = Nothing
ma mi da quest'errore:

ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

perchè?? qlc sa dirmi il motivo??