サンプルソースが落ちていたので真似して書いてみたら思い通りの表ができました。
ただ、内容理解していないので解読が必要です。。。。。。
WPF、VB難しいです。。。

■MainWindow.xaml

        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:SampleProject2"
        mc:Ignorable="d"
        Title="MainWindow" Height="350" Width="525"
        Loaded="Window_Loaded">

    <d:DesignProperties.DataContext>
        <SampleDataCollection xmlns="clr-namespace:SampleProject2" />
    </d:DesignProperties.DataContext>

    <Grid x:Name="RootGrid">
        <DataGrid x:Name="DataGrid1"
              AutoGenerateColumns="False" HorizontalAlignment="Left" 
              ItemsSource="{Binding DataContext, Mode=TwoWay, RelativeSource={RelativeSource Self}}" 
              >
            <DataGrid.Columns>
                <DataGridTextColumn Binding="{Binding book}" Header="本" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding url}" Header="URL" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding memo}" Header="備考" MinWidth="50" />
            </DataGrid.Columns>
        </DataGrid>
    </Grid>
</Window>

■SampleData.vb

Imports System.ComponentModel
Imports System.Collections.ObjectModel

' 表示する個々のデータ（データバインド可能）
Public Class SampleData
    'Implements INotifyPropertyChanged
    Public Property book As String
    Public Property url As String
    Public Property memo As String
End Class

' 表示するデータのコレクション（データバインド可能）
Public Class SampleDataCollection
    Inherits ObservableCollection(Of SampleData)

    Public Sub New()
        ' 初期データ
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
    End Sub
End Class

■MainWindow.xaml.vb

Class MainWindow
    Property book As String
    Property url As String
    Property memo As String

    ' 表示するデータ
    Private _data As SampleDataCollection = New SampleDataCollection()

    ' 画面が表示されるとき、データを画面にセットする
    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
        ' データをそのままセットする
        'Me.RootGrid.DataContext = _data

        Dim Items As New List(Of MainWindow)

        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})

        Me.RootGrid.DataContext = Items
    End Sub
End Class