الترحيل من داتا جريد فيو الى جداول sql

كود :
Public Sub Insert_stock_materials()

        Dim Cmd As New SqlCommand

        With Cmd

            .Connection = Con

            .CommandType = CommandType.Text

            .CommandText = "Insert Into stock_materials ( ,prd_id,recpie_id,matriyal_recpie,Quantity_imports,Quantity_Outside,Store_Balance)values(,@prd_id,@recpie_id,@matriyal_recpie,@Quantity_imports,@Quantity_Outside,@Store_Balance)"

            .Parameters.Clear()

            .Parameters.AddWithValue("@prd_id", SqlDbType.Int).Value = prd_id

            .Parameters.AddWithValue("@recpie_id", SqlDbType.Int).Value = recpie_id.TXT

            .Parameters.AddWithValue("@matriyal_recpie", SqlDbType.VarChar).Value = matriyal_recpie.TXT

            .Parameters.AddWithValue("@Quantity_imports", SqlDbType.Decimal).Value = Quantity_imports.TXT

            .Parameters.AddWithValue("@Quantity_Outside", SqlDbType.Decimal).Value = Quantity_Outside.TXT

            .Parameters.AddWithValue("@Store_Balance", SqlDbType.Decimal).Value = Store_Balance.TXT

        End With

        If Con.State = 1 Then Con.Close()

        Con.Open()

        Cmd.ExecuteNonQuery()

        Con.Close()

        MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

        Cmd = Nothing

    End Sub