关于借阅窗体录入数据问题

借出按钮的这个地方，更新记录集不对。

    '判断“图书借阅”数据表是否为空
    If rst.RecordCount < 1 Then
        '如果为空，则表示选中图书肯定未被借过，把Cunzai值设为False
        Cunzai = False
    Else

点击下载此附件
        If IsNull([科内编号]) Then
            MsgBox "没有输入科内编号"
        Else
            '更新记录，并弹出提示
'            rst.Update'不应在此处更新记录集
            MsgBox "已经借出！"
        End If
    End If
    rst.Update '少了这句
    rst.Close
    Set rst = Nothing '还少了这句