简单的流程问题 和 resume 问题

Question

On Error GoTo getRS_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
    strConnection = strConnection & "Client.mdb"
    strArray = Split(sql)                       '这是什么意思?
    con.Open strConnection                      '打开连接
        rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
        Set getRS = rs                          '返回记录集
        iflag = 1
getRS_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
getRS_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume getRS_Exit             最后一句resume getrs_exit 是什么意思啊? 如果发生错误跳到getrs_exit, 关闭
 rs,con. 那么如果没发生错误的话, rs是不是就没有被清空,con连接是不是就没有关闭. 那样合理吗?

Answer 1

resume getrs_exit 从getrs_exit处继续执行!!