I've also tried some code to copy the recordset to an array, but thi
fails as well.. same error.
Code works fine if the recordset has no missing values



Dim aTable1Values
aTable1Values = rs.GetRows() '<----Dies here now

Dim iRowLoop, iColLoop
For iRowLoop = 0 To UBound(aTable1Values, 2)
For iColLoop = 0 To UBound(aTable1Values, 1)
MsgBox (aTable1Values(iColLoop, iRowLoop))
Next
Next 'iRowLoo

--
Message posted from http://www.ExcelForum.com