vba not responding but still running code?

[joetinger]

When my listbox is loading the results from the query the form will say not responding. I'll wait a few seconds (time varies but never more then a minute) and the results will then appear in the listbox and the not responding title is gone. My loops are below. I'm looking through 282,828 files from 3 different tables. I would like to get rid of the not responding error.

 rst.Open str, cnt
    LstCnt = 1

    Do Until rst.EOF
    On Error Resume Next
        LstCnt = LstCnt + 1
        rst.MoveNext
    Loop
    
    rst.Close
    ReDim InfoArray(LstCnt, 8)
    rst.Open str, cnt
    x = 0

    'Addes data results to the array
    Do Until rst.EOF
    On Error Resume Next
        InfoArray(x, 0) = rst!JOB_NO
        InfoArray(x, 1) = rst!CUST_NAME
        InfoArray(x, 2) = rst!CUS_SITE_ADDR_1
        InfoArray(x, 3) = rst!JOB_NAME
        InfoArray(x, 4) = rst!CUST_NO
        InfoArray(x, 5) = rst!CUST_SITE
        InfoArray(x, 6) = rst!CUST_ADDR_1
        InfoArray(x, 7) = rst!CUST_ADDR_3
        x = x + 1
        rst.MoveNext
    Loop