在家办公时，子程序和关闭记录集卡住了。

在家办公时，子程序和关闭记录集可能会出现卡住的情况，可能是由于以下几个原因导致的：

1. 子程序中存在死循环或者长时间运行的操作，导致主程序无法继续执行。

2. 关闭记录集时，可能存在未释放的资源或者未正确关闭的情况，导致记录集无法关闭。

为了解决这个问题，可以尝试以下几种方法：

1. 检查子程序的代码，确保没有死循环或者长时间运行的操作。可以使用适当的条件判断，以及合理的等待时间来避免子程序卡住。

' 子程序示例
Sub MySub()
    ' 执行一些操作
    ' ...
    
    ' 使用条件判断来控制执行时间
    Dim startTime As Date
    startTime = Now
    Do While Now - startTime < TimeValue("00:00:10") ' 设置10秒的执行时间
        ' 可能的操作
        ' ...
    Loop
    
    ' 继续执行其他操作
    ' ...
End Sub

2. 在关闭记录集之前，确保释放相关资源并正确关闭记录集。

' 关闭记录集示例
Sub CloseRecordset()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM MyTable")
    
    ' 执行一些操作
    ' ...
    
    rs.Close ' 关闭记录集
    Set rs = Nothing ' 释放资源
End Sub

通过以上方法，可以避免在家办公时子程序和关闭记录集卡住的问题，并保证程序的正常执行。