كود نسخ جدول لجدول آخر - نسخة قابلة للطباعة

مثال بسيط جدا احببت ان اخطه بيدي اقصد اشارك به وهو كالتالي:
نضيف عدد 2 شبيكة بيانات وزر امر
في منطقة التصريحات العامة نكتب
رمز برمجي:

كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0; data source=|datadirectory|\db.accdb"

    Dim con As New OleDb.OleDbConnection(str)

    Dim sql1 As String = "select * from tb1"

    Dim sql2 As String = "select * from tb2"

    Dim ds1 As New DataSet

    Dim ds2 As New DataSet

    Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)

    Dim da2 As New OleDb.OleDbDataAdapter(sql2, con)

وعند حدث تحميل النموذج نكتب
رمز برمجي:

كود :

If con.State = ConnectionState.Open Then

            con.Close()

        End If

        ds1.Clear()

        ds2.Clear()

        DataGridView1.DataSource = Nothing

        DataGridView2.DataSource = Nothing

        da1.Fill(ds1, "tb1")

        da2.Fill(ds2, "tb2")

        DataGridView1.DataSource = ds1

        DataGridView1.DataMember = "tb1"

        DataGridView2.DataSource = ds2

        DataGridView2.DataMember = "tb2"

وعند حدث النقر للزر نكتب
رمز برمجي:

كود :

Dim cm As New OleDb.OleDbCommand("insert into tb2 select * from tb1", con)

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        Try

            cm.ExecuteNonQuery()

            Call Form1_Load(Me, e)

        Catch ex As Exception

            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

            If con.State = ConnectionState.Open Then

                con.Close()

            End If

        End Try

انتهى!
هذا الكود مفيد لو حبيت اخذ نسخة من الجدول لجدول آخر عند التعديل او الحذف ولو احببت استرجاع النسخة فقط بدل في اسماء الجداول في جملة التنفيذ cm