Убрать последнюю пустую строку в DataGridView - Visual Basic .NET

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim CONNECTION As New OleDbConnection("Provider=Microsoft." & "Jet.OLEDB.4.0;Data Source=" ЭТО МОЙ ПУТЬ где находится файл)
 
        CONNECTION.Open()
      
        Dim COMMAND As New System.Data.OleDb.OleDbCommand(
                 "Select * From [команды]", CONNECTION)
 
              Dim DATAREADER As OleDbDataReader = COMMAND.
            ExecuteReader
 
        Dim DATATABLE As New DataTable
      
        DATATABLE.Columns.Add(DATAREADER.GetName(0))
 
        While DATAREADER.Read() = True
           
            DATATABLE.Rows.Add(
            New String() {DATAREADER.GetValue(0)
           })
            '
        End While
 
        DATAREADER.Close() : CONNECTION.Close()
        DataGridView1.DataSource = DATATABLE
End Sub