'一応DAO貼り。環境が違うので保証しがたいです。
'メモリ使用はワークスペースのサイズで、一度膨れたサイズは再利用されてる様子。
'（一回目Cancel→弐回目Cancel として動きを確認 排他制御やインデックスは別問題としてほしい）
'とりあえずうちとこの三勝設定　Microsoft DAO 3.51 Object Library のみ
Private Sub Command1_Click()
Dim db As Database: Dim rs As Recordset: Dim td As TableDef: Dim I As Long
Dim rc As Integer
On Error GoTo eHandle
Set db = Workspaces(0).CreateDatabase(Format(Now(), "HHNNSS") & ".mdb", dbLangJapanese)
Set td = db.CreateTableDef("XXX")
td.Fields.Append td.CreateField("A", dbText, 10)
td.Fields.Append td.CreateField("B", dbText, 10)
td.Fields.Append td.CreateField("C", dbText, 10)
db.TableDefs.Append td
Set td = Nothing
Set rs = db.OpenRecordset("XXX")
For I = 0 To 999999
rs.AddNew
rs.Fields(0) = Format(I, "000000"): rs.Fields(1) = "000000"
rs.Update
If I Mod 10000 = 0 Then
rc = MsgBox("refleshしたい", vbYesNoCancel + vbDefaultButton2)
If rc = vbCancel Then
Exit For
ElseIf rc = vbYes Then
End If
End If
Next I
Exit Sub
eHandle:
MsgBox Err.Description, vbMsgBoxHelpButton, , Err.HelpFile, Err.HelpContext
End Sub