Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        objekKoneksi.Open()
        Dim Rubah As String = "UPDATE Tablepesandanbelikacamata set NamaProduct='" + Textnama.Text + "' where NoPenjualan='" + Trim(Textnopenjualan.Text) + "'"
        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")
    End Sub