ubah

Public Class ubah
    Dim crud As New Crud
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        crud.update(txtNmDpn.Text, txtNmBlk.Text, Form1.dgvData.CurrentRow.Cells(0).Value)
    End Sub
End Class