مساعده ياشباب ... ازاى انقل بيانات من جدول لجدول اخر مماثل, ازاى انقل بيانات من جدول لجدول اخر مماثل؟؟؟؟؟؟؟؟

السلام عليكــم ورحمـة الله وبركاتــه ،،

sqls1 = "select * from Table1"
If rs3.State = adStateOpen Then rs3.Close
rs3.Open sqls1, db, adOpenKeyset, adLockPessimistic
rs3.MoveFirst
Do
code1 = rs3.Fields("code")
name1 = rs3.Fields("name")
'Update Table2
sqls2 = "update [table2] set [name] = '" & name1 & "'  where code = '" & code1 & "'"
If rs2.State = adStateOpen Then rs2.Close
rs2.Open sqls2, db, adOpenKeyset, adLockPessimistic

rs3.MoveNext
Loop Until rs3.EOF = True

على اعتبار الجدول الاول جدول معلومات الموظفين والذي يشمل الاسم والكودالشخصي ومعلومات اخرى

والجدول الثاني والذي يخص الرواتب ويحتوي الكود والراتب وتريد اضافة الاسم في الجدول

الف شكر