Как открывать recordset в ADO, если он содержит много записей? - VB

Формулировка задачи:

Т.е как открыть базу в ADO если она очень большая от 11 до 35 мб формат ДБФ. Нужно использовать эти базы в качестве справочников. Очень долго грузятся... Как здесь поступить?

Решение задачи: «Как открывать recordset в ADO, если он содержит много записей?»

textual
                            Листинг программы 
                        

                            Private WithEvents oRS As ADODB.Recordset
Private WithEvents oCN As ADODB.Connection
 
Private Sub Command1_Click()
 
oRS.Open 'fio', oCN, , , adAsyncFetch
 
End Sub
 
Private Sub Form_Load()
Set oCN = New ADODB.Connection
Set oRS = New ADODB.Recordset
oCN.ConnectionString = 'DSN=dBASE Files;Mode=Read|Write;DBQ=c:FOXING;DefaultDir=c:FOXING;DriverId=21;FIL=dBase III;MaxBufferSize=512;PageTimeout=5'
oCN.Open
 
End Sub
 
Sub oCN_executeComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)
 
Set Me.MSHFlexGrid1.RecordSource = oRS
 
End Sub
                        