Noticed that after closing a ResultSet (closing the ResultSet and freeing resources) the RowCount remains as before closing the ResultSet. As I have a number of module level ResultSets that remain open I added a Sub to keep track of these and close all open ResultSets if there was a memory problem (although this is very unlikely). To check the real rows I added a little function:
Is there any way to get the real RowCount without a Try Catch?
Sub GetRSRealRows(RS1 As ResultSet) As Long Try RS1.Position = -1 RS1.NextRow Catch Return 0 End Try Return RS1.RowCount End Sub