For i As Integer = 0 To beforeEdit.Columns.Count - 1
    If beforeEdit(0).Item(i) <> afterEdit(0).Item(i) Then
        'storing log which column have changed
    End If
Next

Private Sub LogRecordChanges(row As DataRow)
    If row.RowState = DataRowState.Unchanged Then
        Console.WriteLine("No changes to row.")
    Else
        For Each column As DataColumn In row.Table.Columns
            Dim currentValue = row(column, DataRowVersion.Current)
            Dim originalValue = row(column, DataRowVersion.Original)

            If currentValue.Equals(originalValue) Then
                Console.WriteLine($"No changes to column '{column.ColumnName}'.")
            Else
                Console.WriteLine($"Column '{column.ColumnName}' changed from '{originalValue}' to '{currentValue}'.")
            End If
        Next
    End If
End Sub