Отрисовка грида в виртуальном режиме

        'Настройка грида
        DataGridView1.ReadOnly = True
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.AllowUserToDeleteRows = False
        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader
        DataGridView1.MultiSelect = False
 
        'Создание подключения
        Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\NWind.mdb;"
        Dim cn As New System.Data.OleDb.OleDbConnection(strCon)
        'Создание объекта Command
        Dim strSQL As String = "SELECT * FROM vw_Izd"
        Dim cmdDocuments As New System.Data.OleDb.OleDbCommand(strSQL, cn)
 
        'Выполнение запроса
        Dim Reader As System.Data.OleDb.OleDbDataReader
        cn.Open()
        Reader = cmdDocuments.ExecuteReader()

        'Отрисовка данных в гриде
        Dim tbl As New DataTable("Table")
        tbl.Load(Reader)
        cn.Close()
        DataGridView1.DataSource = tbl

DataGridView1.VirtualMode = True

DataGridView1.VirtualMode = True

DataGridView1.DataSource = tbl