ما الخطا فى هذا الكود الخاص بنقل البيانات

ما الخطافى هذا الكود لكى لا يعمل مع العلم ان المطلوب نقل البيانات من tas2 الى tas4

Do While rs1.EOF = False
rs4.AddNew
rs4("class") = rs1("class")
rs4("quant") = rs1("quant")
rs4("price") = rs1("price")
rs4("total") = rs1("total")
rs4("id_no") = rs1("id_no")
rs4("shift") = rs1("shift")
rs4.Update
rs1.Delete
rs1.MoveNext


كما اننى وضعت الكود التالى  فى الحدث form_load

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=report; Data Source=db11.mdb"

rs.Open "tas", cn, adOpenDynamic, adLockBatchOptimistic

rs1.Open "tas2", cn, adOpenDynamic, adLockBatchOptimistic

rs3.Open "tas3", cn, adOpenDynamic, adLockBatchOptimistic

rs4.Open "tas4", cn, adOpenDynamic, adLockBatchOptimistic

وشكرا