The recordset returned has only one record. Stepping through the code shows the recordcount as 1 (correctly) when this is executed:
If xErr = 3021 Then
fExtractDataByStore = 0
vData = rs.GetRows(rs.RecordCount)
fExtractDataByStore = rs.RecordCount
Debug.Print LBound(vdata, 1), Ubound(vdata, 1)
Debug.Print LBound(vdata, 2), Ubound(vdata, 2)
The debug output looks like this:
The recordset has no problems, all the fields have data, but the GetRows is not returning useful information.
This is confusing me.