Sub GetData()

    Dim rsData As ADODB.Recordset
    Dim sSQL As String
    
    Call DBConnectionAccess

    sSQL = "SELECT * FROM Query1 "

    'run the query
    Set rsData = New ADODB.Recordset
    'rsData.Open sSQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
    rsData.Open sSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

    Range("DataTopLeft").CopyFromRecordset rsData

    Call DBConnectionClose

End Sub

Connection