ник: snipe
вот тут
http://hiprog.com/index.php?option=com_content&task=view&id=729
скачай базку - многие вопросы отпадут
там можно найти например это
Вопрос: Виртуальный рекордсет. Необходимо создать Recordset в памяти, добавить в него поля для работы с ним в модуле в модуле (программно наполнить данными) и присвоить форме.
Совет:
Option Compare Database
Option Explicit
Public rs As New ADODB.Recordset
'Dim rs As New ADODB.Recordset
Private Sub Кнопка12_Click()
Dim i As Integer
With rs
With .Fields
.Append "ID", adInteger
.Append "Name", adChar, 55
End With
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Open
For i = 1 To 1000
.AddNew
!ID = i
!Name = "value_" & CStr(i)
Next i
.UpdateBatch 'без этого в форме не отобразиться
End With
Set Me.Recordset = rs
'rs.Close 'Нужно ли надо выяснить
End Sub