Vb.net ADO indexwasoutof range

---

Я хочу отобразить свой набор данных на Datagridview, но это меня беспокоит.

Как ты можешь это объяснить? Есть какие-нибудь решения?

Private Sub dgvOutput()

       With dgvDisplay


           .Columns(1).HeaderCell.Value = "ID"
           .Columns(1).Width = 30
           .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
           .Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(1).HeaderCell.Value = "Place"
           .Columns(1).Width = 100
           .Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(2).HeaderCell.Value = "Facility"
           .Columns(2).Width = 100
           .Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(3).HeaderCell.Value = "Date Reserved"
           .Columns(3).Width = 200
           .Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(4).HeaderCell.Value = "Time Start"
           .Columns(4).Width = 100
           .Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(5).HeaderCell.Value = "Time End"
           .Columns(5).Width = 100
           .Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(6).HeaderCell.Value = "Requestor"
           .Columns(6).Width = 80
           .Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(7).HeaderCell.Value = "Price"
           .Columns(7).Width = 70
           .Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

           .Columns(8).HeaderCell.Value = "Note"
           .Columns(8).Width = 180
           .Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


       End With

   End Sub

   Private Sub FillTable()
       Dim adapter As New OleDbDataAdapter
       Dim dt As New DataTable

       adapter.SelectCommand = command
       adapter.Fill(dt)
       dgvDisplay.DataSource = dt
       dgvOutput()
       adapter.Dispose()
       command.Dispose()
       conn.Close()

   End Sub

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

Я пытался изменить столбцы и их индексы, но все равно безуспешно

нужно ли мне объявлять количество столбцов?

или какие-то особые коды.

если вы хотите проверить весь мой код

вы можете написать мне: [Email удален]

приблизительный размер файла проекта: 1,5 Мб

---