FetchArray function - 2 dimensional arrays

[Frans C]

Why make it so difficult?

Function FetchArray(strQuery As String, conn As ADODB.Connection) As Variant
   Dim nRS As ADODB.Recordset
   
   Set nRS = New ADODB.Recordset
   nRS.CursorLocation = adUseServer
   
   nRS.Open strQuery, conn
   FetchArray = nRS.GetRows
   nRS.Close
   Set nRS = Nothing
End Function

EDIT: added some cleanup code