Как сделать подкачку для datagridview VB.NET

---

Я хочу сделать подкачку в DataGridView я видел несколько учебников, но все используемые таблицы данных и набор данных заполняют "Datagridview", но в моем коде я не хочу показывать все элементы, а также у меня есть кнопка изображения и еще кое-что.

я хочу добавить подкачку в свою сетку, чтобы пользователь мог выбрать, что показывать, и плавно загрузить представление Datagrid. то, что я хочу, это что-то вроде этого:

https://www.sourcecodester.com/sites/default/files/images/admin/datagridview_paging.jpg

спасибо.

Это код, который я использую для заполнения Gridview из базы данных:

Что я уже пробовал:

Sub FillGrid()
    DataGrid1.CancelEdit()
    DataGrid1.Columns.Clear()
    DataGrid1.DataSource = Nothing

    'Delete Button
    Dim btnDelete As New DataGridViewButtonColumn()
    btnDelete.FlatStyle = FlatStyle.Flat
    'Image Button
    Dim btnImage As New DataGridViewButtonColumn()
    btnImage.FlatStyle = FlatStyle.Flat

    Dim column = New CalendarColumn() With {.HeaderText = "Date"}
    column.DefaultCellStyle.Format = "dd/MM/yyyy"
    column.DataPropertyName = "Date"

    DataGrid1.Columns.Insert(0, btnDelete)
    DataGrid1.Columns.Add("", "Id")
    DataGrid1.Columns.Add("", "Name")
    DataGrid1.Columns.Add("", "nickname")
    DataGrid1.Columns.Add("", "city")
    DataGrid1.Columns.Add("", "phone 1")
    DataGrid1.Columns.Add("", "phone 2")
    DataGrid1.Columns.Add("", "phone 3")
    DataGrid1.Columns.Add("", "Email")
    DataGrid1.Columns.Add(btnImage)
    DataGrid1.Columns.Add(column)
    DataGrid1.Columns.Add("", "image")
    DataGrid1.Columns.Add("", "")
    DataGrid1.Columns(11).Visible = False

    Const sqlstring As String = "Select * FROM customers"

    If SQL.conn.State = ConnectionState.Open Then
        SQL.conn.Close()
    End If

    SQL.conn.Open()
    Dim adt As New SqlDataAdapter(sqlstring, SQL.conn)
    Dim dt As New DataTable
    adt.Fill(dt)
    Dim i As Integer
    For i = 0 To dt.Rows.Count - 1
        DataGrid1.Rows.Add()
        DataGrid1.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(0)
        DataGrid1.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(1)
        DataGrid1.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(2)
        DataGrid1.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(3)
        DataGrid1.Rows(i).Cells(5).Value = dt.Rows(i).ItemArray(4)
        DataGrid1.Rows(i).Cells(6).Value = dt.Rows(i).ItemArray(5)
        DataGrid1.Rows(i).Cells(7).Value = dt.Rows(i).ItemArray(6)
        DataGrid1.Rows(i).Cells(8).Value = dt.Rows(i).ItemArray(7)
        'DataGrid1.Rows(i).Cells(9).Value = dt.Rows(i).ItemArray(8)
        DataGrid1.Rows(i).Cells(10).Value = dt.Rows(i).ItemArray(9)
        DataGrid1.Rows(i).Cells(11).Value = dt.Rows(i).ItemArray(10)
    Next
    SQL.conn.Close()

    For i = 0 To DataGrid1.RowCount - 1
        DataGrid1.Rows(i).HeaderCell.Value = CStr(i + 1)
    Next

End Sub

---