Actualizar:

Luego tenemos el botón de "Actualizar" cuya función es modificar la información de la Base de Datos, en caso de que ésta sea errónea o simplemente haya cambiado.

    Private Sub btn_actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_actualizar.Click

        Dim l_nss As String = UCase(Txt_nss.Text)

        Dim l_nombre As String = Trim(UCase(Txt_nombre.Text))

        Dim l_paterno As String = Trim(UCase(Txt_paterno.Text))

        Dim l_materno As String = Trim(UCase(Txt_materno.Text))

        Dim l_direccion As String = UCase(Txt_direccion.Text)

        Dim l_telefono As String = Txt_telefono.Text

        Dim bd As Class1

        bd = New Class1()

        Dim l_cadena As String = "update Empleados set " & _

                                " Nombre = '" & l_nombre & "'" & _

                                ", Ap_Paterno = '" & l_paterno & "'" & _

                                ", Ap_Materno = '" & l_materno & "'" & _

                                ", Direccion = '" & l_direccion & "'" & _

                                ", Telefono = '" & l_telefono & "'" & _

                                " where NSS = '" & l_nss & "'"

        'Validaciones

        If Trim(Me.Txt_nss.Text) = "" Or Trim(Me.Txt_nombre.Text) = "" Or Trim(Me.Txt_paterno.Text) = "" Or Trim(Me.Txt_materno.Text) = "" Or _

        Trim(Me.Txt_direccion.Text) = "" Or Trim(Me.Txt_telefono.Text) = "" Or IsNumeric(Me.Txt_nss.Text) = False Or IsNumeric(Me.Txt_telefono.Text) = False Or _

        IsNumeric(Me.Txt_nombre.Text) = True Or IsNumeric(Me.Txt_paterno.Text) = True Or IsNumeric(Me.Txt_materno.Text) = True Or IsDate(Me.Txt_nss.Text) = True Or _

        IsDate(Me.Txt_nombre.Text) = True Or IsDate(Me.Txt_paterno.Text) = True Or IsDate(Me.Txt_materno.Text) = True Or IsDate(Me.Txt_direccion.Text) = True Or _

        IsDate(Me.Txt_telefono.Text) = True Then

            MsgBox("No se puede modificar el registro")

        Else

            bd.Modifica(l_cadena)

            Me.Lbl_mensaje.Text = "El registro se modificó correctamente"

            Call refresca_grid(l_where)

        End If

    End Sub

En el caso de este botón, primero que nada tenemos la declaración de todas las variables que utilizamos (muy similar al código de "Insertar/Agregar") y después tenemos el uso de la clase en dónde se encuentra el método antes mencionado; por último tenemos la conexión con la Base de Datos y los campos que esta posee, en este caso, los campos de la tabla de Empleados.

Luego, tenemos lo que son las validaciones del programa y por último el letrero que nos avisa si el registro fué o no modificado correctamente.