1 вставить оператор с несколькими значениями VB net с параметрами

---

I need to input 1 GB data every 15 minutes
if looping my insert statement it will take around 20 minutes
its take to long

Мне нужно вставить несколько строк в 1 Инструкция
зацикливание значений, но не оператор insert


код

Sub bandingkan_data_tblpibconr()
        Dim Bs_access As New DataTable
        Bs_access = query.LoadAcces_tblpibconr
        Dim dt3 As New DataTable
        dt3 = Bs_access
        Cmd.Connection = connNpgsql.OpenConnection()



        Dim kueri As String

        kueri = "insert into tblpibconr values"
        For i = 0 To dt3.Rows.Count - 1


            kueri = kueri + "('" + dt3.Rows(i)("car").ToString + "','" + dt3.Rows(i)("reskd").ToString + "','" + dt3.Rows(i)("contno").ToString + "','" + dt3.Rows(i)("contukur").ToString.Trim() + "','" + dt3.Rows(i)("conttipe").ToString + "')"
            kueri = kueri + ","

    
        Next
        kueri = kueri.Remove(kueri.Length - 1, 1)

        Cmd.CommandText = kueri
        Cmd.ExecuteNonQuery()


        connNpgsql.CloseConexion()
    End Sub

<pre lang="vb">

это мой код и его работа
но теперь мне нужно добавить к нему параметры

Cmd.Parameters.Add("@car", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("car").ToString
    Cmd.Parameters.Add("@reskd", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("reskd").ToString
    Cmd.Parameters.Add("@contno", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("contno").ToString
    Cmd.Parameters.Add("@contukur", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("contukur").ToString.Trim()
    Cmd.Parameters.Add("@conttipe", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("conttipe").ToString

как я могу изменить свой Куэри и ввести в него свой параметр

Что я уже пробовал:

Мне нужно ввести данные из таблицы данных в PostgreSQL
если вы ребята знаете как ввести его быстрее например использовать массовую вставку пожалуйста дайте мне сейчас

Sub bandingkan_data_tblpibconr()
    Dim Bs_access As New DataTable
    Bs_access = query.LoadAcces_tblpibconr
    Dim dt3 As New DataTable
    dt3 = Bs_access
    Cmd.Connection = connNpgsql.OpenConnection()

    Try
        Dim insProd As String = "insert into tblpibconr(car, reskd, contno, contukur,conttipe) values (@car, @reskd, @contno, @contukur,@conttipe)"
        Dim cmdSql As New NpgsqlCommand(insProd, connNpgsql.OpenConnection)
        connNpgsql.OpenConnection()
        Dim i As Integer
        For i = 0 To (dt3.Rows.Count - 1)
            Cmd.Parameters.Clear()
            ' ------------ WORKING CODE -------------------
            With Cmd

                .Parameters.Add("@car", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("car").ToString
                .Parameters.Add("@reskd", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("reskd").ToString
                .Parameters.Add("@contno", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("contno").ToString
                .Parameters.Add("@contukur", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("contukur").ToString.Trim()
                .Parameters.Add("@conttipe", NpgsqlTypes.NpgsqlDbType.Text).Value = dt3.Rows(i)("conttipe").ToString

            End With
            ' ------------ WORKING CODE -------------------
            Cmd.CommandText = insProd
            Cmd.ExecuteNonQuery()
        Next
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        connNpgsql.CloseConexion()
    End Try
End Sub

Я пробовал этот код, но он все еще зацикливает оператор insert

---