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

PHP كود :
Public Class Form1

    Dim con1 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db1.accdb")
    Dim con2 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db2.accdb")
    Dim da As New OleDb.OleDbDataAdapter("SELECT tn FROM tb1", con1)
    Private Sub gd()
        Dim da2 As New OleDb.OleDbDataAdapter("select  *from tb2", con2)
        Dim dt2 As New DataTable
        da2.Fill(dt2)
        ListBox2.DataSource = dt2
        ListBox2.DisplayMember = "tn"
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tb1 As New DataTable
        da.Fill(tb1)
        ListBox1.DataSource = tb1
        ListBox1.DisplayMember = "tn"
        gd()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO tb2 (tn) VALUES (@tn)", con2)
        da.InsertCommand.Parameters.Add("@tn", OleDb.OleDbType.VarChar, 50, "tn")
        da.AcceptChangesDuringFill = False
        Dim dt As New DataTable
        da.Fill(dt)
        da.Update(dt)
        gd()
    End Sub
End Class