Visual Basic.NET - Mostar datos en un datagridview a la vez que hacemos un insert en una tabla sql

Imports MySql.Data.MySqlClient

Public Class RegistrarProductos

    'añadimos la conexion

    Inherits Conectar

    'creamos una funcion con los datos de la tabla

    Public Function Productos(idHormigon As Integer, idIncrementos As Integer, Precio As String) As Boolean

        Using connection = GetConnection()

            connection.Open()

            Using Command = New MySqlCommand()

                Command.Connection = connection

                'pasamos la consulta por parametros

                Command.CommandText = "insert into incrementos_has_linea_ofertas (Tipo_Hormigon_idHormigon,Incrementos_idIncrementos,Precio) values (@IdHormigon, @idIncrementos, @Precio)"

                'agragamos cada parametro a un campo de la tabla producto

                Command.Parameters.AddWithValue("@IdHormigon", idHormigon)

                Command.Parameters.AddWithValue("@IdIncrementos", idIncrementos)

                Command.Parameters.AddWithValue("@Precio", Precio)

                Command.CommandType = CommandType.Text

                'ejecutamos la consulta y la devolvemos si es correcta

                If Command.ExecuteNonQuery <> 0 Then

                    Return True

                Else

                    Return False

                End If

            End Using

        End Using

    End Function

End Class

Imports Datos

Public Class ModuloRegistrarProductos

    'llamamos a la clase publica de RegistrarProducto

    Dim productosDao As New RegistrarProductos()

    Public Function Registroproducto(idHormigon As Integer, idIncrementos As Integer, Precio As String) As Boolean

        Return productosDao.Productos(idHormigon, idIncrementos, Precio)

    End Function

End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Llamamos a la clase Modelo de registro para poder usar las funcion

        Dim producto As New ModuloRegistrarProductos

        'Convertimos en enteros y en double los datos para insertarlos en la tabla incrementos

        Dim RegistrarProductos = producto.Registroproducto(

            Convert.ToInt32(ComboBoxHormigon.SelectedValue),

            Convert.ToInt32(ComboBoxIdIncrementos.SelectedValue),

            Convert.ToDouble(TextBox6.Text))

        MessageBox.Show("Hormigon creado")

    End Sub