Asynchronous Query

[Rabbit]

This will start an asynchronous query so that a large query doesn't tie up Access.

Option Explicit
Private WithEvents AsyncConnection As ADODB.Connection
 
Private Sub Command1_Click()
    Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data\Access\database1.mdb;Persist Security Info=False"
 
    Set AsyncConnection = New ADODB.Connection
 
    AsyncConnection.ConnectionString = ConnectionString
    AsyncConnection.Open
 
    Const sql As String = "SELECT * FROM table1"
 
    Call AsyncConnection.Execute(sql, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adAsyncExecute)
End Sub
 
Private Sub AsyncConnection_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)
    If (adStatus = adStatusOK) Then
        Me.List2.RowSource = pRecordset.Source
    End If
 
    If (pConnection.State = ObjectStateEnum.adStateOpen) Then
        pConnection.Close
    End If
End Sub