多谢指点！
还有以下问题：
1、redim使用完后怎么释放？
2、怎么算是“对不再使用的对象重新使用的情况？”怎么定时去扫描控件状态？

我在网上看了erase可以清空数组，但是我的代码只有在查询中才用到redim函数。上位机正常运行时没有使用查询操作，但是也会报那个错误。
Public Sub Find_date(ByVal Top As String, ByVal Down As String, ByVal i As Byte, ty As String, name As String)

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String, j As Integer, Z As Integer
   
    DbPath = App.Path & "\T_data.mdb"
    Constr = "provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DbPath
    con.Open Constr


    sql = "SELECT COUNT(ID) as Z FROM Channels_1 WHERE ID between '" & Top & "' and '" & Down & "' and number='" & ty & " '  and Prj_name ='" & name & "'"
   
    rs.Open sql, con, 3, 3
   
    XXX = rs(Z)
    con.Close
   
    ReDim History(XXX)
    ReDim Date_time(XXX)
    con.Open
   
    strSQL = " SELECT * FROM Channels_1 WHERE ID between '" & Top & "' and '" & Down & "'"
    rs.CursorLocation = adUseClient
    rs.Open strSQL, con, adOpenStatic, adLockBatchOptimistic
   
    For Z = 1 To XXX
        History(Z) = rs.Fields(Val(i)).Value
        Date_time(Z) = rs.Fields(1).Value
        rs.MoveNext
    Next Z
    con.Close
   
End Sub

我把redim的数组每次使用后都用erase函数释放，但是问题依然没解决。而且每次报错的地址都不一样

没有调用API

上位机和下位机通过scoket 进行通讯，tcp协议。发现一个比较奇怪的现象，我timer是1min储存一次，但是存储的数据后面的秒数不是一致，是一直在递增

调试显示这里的问题

麻烦帮忙看下这个问题，用反汇编，程序执行到这里有问题。