VBA 难题？关于连续执行数据库操作？？看大家有什么好的办法

Dim orderArray(10000)  As String
Dim firstDaySql As String
Dim firstDayRS as new RecordSet 
Dim orderCount as long
'将数据装入orderArray ...
'.....
'遍历 orderArray
For i = 0 To orderCount - 1
        
        firstDaySql = " select min(insert_date) from table1 "
        firstDaySql = firstDaySql + " where order_number = " + "'" + orderArray(i) + "' "
        
        
        Set firstDayRS = Conn.Execute(firstDaySql)
        'Get strFirstDay
        strFirstDay = CStr(DateValue(firstDayRS(0)))
        firstDayRS.Close
        
       '拿到 strFirstDay ..
       '......next i
        
就是orderArray中的每一个数据都要在数据库中查出相关的最小日期，可问题是，如果orderArray中的数据很少的时候，这个不会有什么问题，当orderArray中的数据很多(>50)的时候，前几个orderArray中的数据还没问题，都很好的传递给了 strFirstDay 等到了i>50以后时就经常会发生连接数据失败的问题？？大家谁遇到过？或者有什么更好的办法？