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