نسخ بيانات من جدول الى جدول في نفس القاعدة

لدي قاعدة بيانات تحتوي على جدولين

قمت بالبحت في الجدول الاول

flx1.Clear

SQL = "select * from tb1 where Number like '" & Text1.Text & "*'"

Set tb1 = db1.OpenRecordset(SQL, dbOpenDynaset)

showdata

اريد حفظ نتيجة البحث في الجدول الثانيى

ماهو الكود الازم لذالك