การ copy ข้อมูลจากตาราง คือพี่ที่ฝึกงานเค้ามีฐานข้อมูลอยู่ประมาณ 10 ตาราง

 openConnection()
        Dim SQL As String = "select TAG from " & ComboTable.Text
        Dim dts As DataTable = connectAcc(SQL).Tables(0)
        Dim rows As DataRow
        For Each rows In dts.Rows
            Dim temp As String = CType(rows("TAG"), String)
            Dim command As String = "insert into MV_TAGCHECKING(Class_name,TAGS) values('" & ComboTable.Text & "','" & temp & "')"
            connectAcc(command)
        Next
        MsgBox("insert success!")

Public Sub openConnection()
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
    Public Function connectAcc(ByVal command As String) As DataSet
        Dim a As New DataSet
        'a.Tables.Add(0)
        Try
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(command, conn)
            a.Tables.Clear()
            da.Fill(a)
            conn.Close()
        Catch ex As Exception
            MessageBox.Show("Error" & ex.Message)
            a.Tables.Clear()
            a.Tables.Add(0)
            Return a
        End Try
        Return a
    End Function