Size Limit Exceeded Error

I am using ADO to return records from AD when I reach 2500 records in the recordset I get the error

Provider error '80072023'

The size limit for this request was exceeded.

/adsitest/sendwarnings.asp, line 59


Line 59 is the "WEND" part of the following statement.

WHILE NOT adoRecordSet.EOF
                  IF adoRecordSet.Fields(0).Type = 12 THEN
                  For Each sLine In adoRecordSet.Fields(0).Value
                  email = email & sLine
                  Next
                  ELSE
                  email = adoRecordSet.Fields(0).Value
                  END IF
                  IF adoRecordSet.Fields(1).Type = 12 THEN
                  For Each sLine In adoRecordSet.Fields(1).Value
                  lanid = lanid & sLine
                  Next
                  ELSE
                  lanid = adoRecordSet.Fields(1).Value
                  END IF
                  
                  Response.Write (i & ") Email = " & email & " - LANID = " & lanid & "<BR>")
                  i = i + 1
                        'SQLTest = "SELECT * FROM GALCTDTIDYwarnings WHERE smtp = '" & email & "' AND lanid = '" & lanid & "'"
                        'SET RS = cckbconn.Execute(SQLTest)
                        '
                        'IF NOT RS.EOF THEN
                              ' Already listed this user, ignore them
                        'ELSE
                        'cckbconn.Execute ("INSERT INTO GALCTDTIDYwarnings (smtp,lanid,warning) VALUES ('" & email & "','" & lanid & "',0)")
                        'END IF
                        
                        'RS.Close
                        'SET RS = Nothing
                  adoRecordSet.MoveNext
                  WEND