Function CopyRecordsetToArray(ByVal adoRecSet As ADODB.Recordset) As Variant
'Description: Saves a Recordset to a 2D Array
'Input: Recordset object
'Output: 2D Array
'****** DEKLARÁCIÓK ********************
Dim tempArr As Variant
'*******************************************
adoRecSet.MoveFirst
tempArr = adoRecSet.GetRows
CopyRecordsetToArray = tempArr
End Function