مشکل در یک کد

[adib202]

من دو تا table دارم.بین این دوتا یک ستون هست که وجه مشترکشونه.حالا می خوام بگم هرجا مقدار field1 از table1 با field1 از table2 مساوی بود کل مقادیر table1 وارد table2 شده و بعد اون ردیف رو از table1 حذف و سراغ ردیف بعدی بره
این کد رو نوشتم ولی ایراد داره.فکر کنم نیاز به حلقه داره ولی نمی دونم باید حلقه رو کجا بزارم؟؟



While Adodc4.Recordset.EOF = False
Adodc1.RecordSource = "select * from table2 where field1 like ' " & Adodc4.Recordset.Fields("field1 ")
Adodc1.Recordset.Fields("field2") = Adodc4.Recordset.Fields("field2")
Adodc1.Recordset.Fields("field3") = Adodc4.Recordset.Fields("field3")
Adodc1.Recordset.Update
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Adodc1.Recordset.MoveNext
Wend

[adib202]

کسی قصد راهنمایی نداره؟

[saied_hacker]

اینجا معمولا اگه پروژه رو بزاری سریعتر کمک می کنن!!