Visual Basic - datagridview

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Try

            Dim ConsultaSQL As String = "UPDATE Estudio SET Tecnico_de_Estudio = ?, Programa = ?, Fecha_Hora = ? WHERE Numero_Ingreso = ?"

            Dim com As New OleDbCommand(ConsultaSQL, conexion)

            com.Parameters.AddWithValue("@Tecnico_de_Estudio", Tecnico_de_EstudioTextBox.Text)

            com.Parameters.AddWithValue("@Programa", ProgramaTextBox.Text)

            com.Parameters.AddWithValue("@Fecha_Hora", Convert.ToDateTime(Fecha_HoraDateTimePicker.Value))

            com.Parameters.AddWithValue("@Numero_Ingreso", Numero_IngresoTextBox.Text)

            conexion.Open()

            com.ExecuteNonQuery()

            conexion.Close()

            showitems()

            MessageBox.Show("Registro Actualizado")

        Catch ex As Exception

            MessageBox.Show("Error al Actualizar el Registro")

        End Try

    End Sub