Создать таблицу и скопировать данные

CREATE TABLE dbo.005 (p_num int, p_num2 int)

tb = getdbasetable("create table 008.dbo.005 (p_num2 int);")

Imports System.Data.OleDb
Imports System.IO
Public Class Form1
    Public dBaseConnection As New System.Data.OleDb.OleDbConnection
 
 
    Public Function getdbasetable(ByVal SqlString As String) As DataTable
        Dim ReturnableTable As New DataTable
        Try
            OpendBConnection()
            Dim SelectCommand As New System.Data.OleDb.OleDbCommand(SqlString, dBaseConnection)
            Dim TableAdapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
            TableAdapter.SelectCommand = SelectCommand
            TableAdapter.Fill(ReturnableTable)
            Return ReturnableTable
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & SqlString, 16, "Error")
            End
        End Try
        Return ReturnableTable
 
    End Function
 
    Public Sub OpendBConnection()
        Try
            Dim ConnectionString As String
            ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project5(Проверки);Extended Properties=dBase IV"
            dBaseConnection = New System.Data.OleDb.OleDbConnection(ConnectionString)
            If dBaseConnection.State = 0 Then dBaseConnection.Open()
        Catch ex As Exception
            MsgBox(ex.Message, 16, "Ошибка")
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pth As String
        Dim pth1 As String
        Dim pth2 As String
        pth = "C:\project5(проверки)"
        pth1 = "C:\project5(проверки)"
        pth2 = "C:\project5(проверки)"
        IO.Path.Combine(pth, "RR326.dbf")
        IO.Path.Combine(pth, "RR322.dbf")
        Dim ds As New DataSet
        Try
            Dim con As OleDbConnection = New OleDbConnection(GetConnection(pth))
            Dim com1 = New OleDbCommand("SELECT nusl,p_num,date_in,date_out FROM RR326.dbf", con)
            Dim com2 = New OleDbCommand("SELECT date_in,date_out,p_num,nusl FROM RR322.dbf", con)
            con.Open()
            Dim dt1 As New DataTable
            Dim dt2 As New DataTable
            dt1.Load(com1.ExecuteReader())
            dt2.Load(com2.ExecuteReader())
            dt1.Columns.Add("DATE_IN2", GetType(System.DateTime))
            dt1.Columns.Add("DATE_OUT2", GetType(System.DateTime))
            dt1.Columns.Add("p_num2", GetType(System.String))
            dt1.Columns.Add("nusl2", GetType(System.String))
            Dim dtm = Date.MinValue
            For i = 0 To dt2.Rows.Count - 1
                dt1(i).Item(4) = dt2(i).Item(0)
                dt1(i).Item(5) = dt2(i).Item(1)
                dt1(i).Item(6) = dt2(i).Item(2)
                dt1(i).Item(7) = dt2(i).Item(3)
            Next
            For i = dt2.Rows.Count To dt1.Rows.Count - 1
                dt1(i).Item(4) = dtm
                dt1(i).Item(5) = dtm
                dt1(i).Item(6) = dtm
                dt1(i).Item(6) = dtm
            Next
            con.Close()
            ds.Tables.Add(dt1)
            '     CreateDBF(pth, "003", ds)
            'DataGridView1.DataSource = dt1
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Try
            Dim tb As DataTable
            'in(select num_hist from RR326 group by num_hist having count(*)>1) 
 
            tb = getdbasetable("create table 008.007 (p_num2 int);")
 
            'tb = getdbasetable("insert into 005 (pnum2)select pnum2 from 005;")
            'tb = getdbasetable("SELECT p_num,p_num2 FROM 004 WHERE p_num IN (SELECT DISTINCT p_num2 FROM 004);")
            'tb = getdbasetable("SELECT p_num,p_num2 FROM 004 WHERE p_num in(select p_num from 004 group by p_num having count(*)>1) ;")
            DataGridView1.DataSource = tb
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        
    End Sub
    Private Function GetConnection(ByVal path As String) As String
        Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=dBASE IV;"
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class