Sample code

Option Compare Database
Option Explicit
Private mcn As ADODB.Connection
Private mrsAdoQRs As ADODB.Recordset
Private msErrorMsg As String
Public Property Get GetAdoQRs() As ADODB.Recordset
    Set GetAdoQRs = mrsAdoQRs
End Property