不明白,不过这样的程序不可以简化么?
可以试试用
    rs.CursorLocation = adUseClient
    rs.Open Sqlstr, gsys_dbcon
    Set rs.ActiveConnection = Nothing
应该不会出错