撤销窗体时提示错误，内存不能为read

窗体有1个ado控件和1个datagrid控件，datagrid的数据源为ado控件。在满足查询条件后datagrid设置为enabled,并当在表格中按下回车键后退出窗体。

Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
       AdoBus.Recordset.Close
       Unload frmQuery
     End If
End Sub

结果是按下回车后，提示程序错误，内存不能为READ并异常退出。什么原因？ --------------------编程问答-------------------- 退出的时候是不是数据库没有Close呀?

补充：VB ,  基础类