Dve tabeli v accessu

V obrazcu imam polje iz ene tabele pa bi stare podatke ko vpišem nov vnos rad prenesel v drugo tabelo -kot arhiv. Pregledal sem že cel forum pa ne najdem kaj podobnega.
Poskusil sem naslednje:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim MyDB As Database
Dim TabPregledi_arhiv As Recordset

'Set MyDB = DBEngine.Workspace(0).Databases(0)
Set MyDB = DBEngine.Workspaces(0).Databases(0)
' Set TabPregledi_arhiv = MyDB.OpenRecordset("Pregledi_Arhiv", dbOpenDynaset)

Set TabPregledi_arhiv = MyDB.OpenRecordset("pregledi_arhiv", , dbOpenDynaset)
TabPregledi_arhiv.AddNew

TabPregledi_arhiv("PCIME") = Forms![Podobrazec pregledi].Form![PCIME]
'TabPregledi_arhiv = [Podobrazec pregledi].Form![PCIME]
TabPregledi_arhiv("Leto_P_D") = Date
TabPregledi_arhiv.Update
End Sub

Dim MyDB As Database
Dim TabPregledi_arhiv As Recordset

Set MyDB = CurrentDb()
Set TabPregledi_arhiv = MyDB.OpenRecordset("SELECT * FROM Pregledi_Arhiv;", DB_OPEN_DYNASET)

TabPregledi_arhiv.AddNew
TabPregledi_arhiv!PCIME = Form_Podobrazec_pregledi.PCIME
TabPregledi_arhiv!Leto_P_D = Date
TabPregledi_arhiv.Update

Pri referencah izkljuci Microsoft ActiveX Data Objects 2.1 Library in vkljuci Microsoft DAO 3.6 Object Library, oz. drugega ce tega nimas.

Ali pa vkljuci Microsoft DAO 3.6 Object Library in napisi:

Dim MyDB As DAO.Database
Dim TabPregledi_arhiv As DAO.Recordset