Option Compare Database
Option Explicit '

Private Sub Кнопка2_Click()
    Test
    test2
    test3
    test4
End Sub

Public Function Test(Optional f)
On Error GoTo Err_Handler
    Dim db As Object
    Set db = CurrentDb

    Dim col As New Collection
    Dim i As Long
    Do
        col.Add db.OpenRecordset("select * from [Invoice Registration]")
        i = i + 1
    Loop
    Exit Function
Err_Handler:
    Me.Поле0 = err.Description
    Me.Поле3 = i
    f = i
End Function


Public Function test2(Optional f)
On Error GoTo Err_Handler
    'Dim db As dao.Database
    Dim db As Object
    Set db = CurrentDb

    Dim col As New Collection
    Dim i As Long
    Do
        Set db = CurrentDb

        col.Add db
        i = i + 1
    Loop
    Exit Function
Err_Handler:
   Me.Поле5 = err.Description
    Me.Поле7 = i
    f = i
End Function

Public Function test3(Optional f)
On Error GoTo Err_Handler
    'Dim db As dao.Database
    Dim con As ADODB.Connection
   
    Dim rs As New ADODB.Recordset
     Set con = CurrentProject.Connection

    Dim col As New Collection
    Dim i As Long
    Do
        Set rs = New ADODB.Recordset
        rs.Open "select * from [Invoice Registration]", con
        col.Add rs
        i = i + 1
    Loop
    Exit Function
Err_Handler:
   Me.Поле9 = err.Description
    Me.Поле11 = i
    f = i
End Function

Public Function test4(Optional f)

'Недостаточно памяти для завершения операции.
'i=64

'On Error GoTo Err_Handler
'    'Dim db As dao.Database
'    Dim con As ADODB.Connection
'
'    Dim rs As New ADODB.Recordset
'     Set con = ReportDirectConnection
'
'    Dim col As New Collection
'    Dim i As Long
'    Do
'        Set rs = New ADODB.Recordset
'        rs.Open "select * from [Invoice Registration]", con
'        col.Add rs
'        i = i + 1
'        If i = 400 Then
'            Me.Поле15 = i
'            Exit Function
'        End If
'
'    Loop
'    Exit Function
'Err_Handler:
'   Me.Поле13 = err.Description
'    Me.Поле15 = i
'    f = i
End Function