Dim dt As DataTable
    AddHandler dt.RowChanged, New System.Data.DataRowChangeEventHandler( _
      AddressOf Row_Changing)
    Private Sub Row_Changing(ByVal sender As Object, ByVal e As _
    System.Data.DataRowChangeEventArgs)
        ' ..
    End Sub