再发，如何关闭数据库？100分！就几句语句，解决后马上结分！

Question

程序中用DATA打开了MDB数据库，然后又用到了FILECOPY来进行复制，但是老提示拒绝访问，请问：如何把这个DATA连接关掉？
DATA控件是有一个Data1.Recordset.Close
问题是这样：当我没有用到MSFlexGrid时，用Data1.DatabaseName="":
data1.recordset.close是可以关闭数据库的(数据库可以用Filecopy来复制来证明)
但是当我用了MSFlexGrid后情况就不同了。用了上述语句。也一样不能复制。仍然提示：拒绝访问权限!请问：如何把这个连接关掉呢？
　 

Answer 1

我试过，能行的呀！我的窗体上data1,msflexgrid的dataSource为data1
Private Sub Command1_Click()
    Data1.Database.Close
End SubPrivate Sub Command2_Click()
    FileCopy "D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB", "D:\Program Files\Microsoft Visual Studio\VB98\aaa.MDB"
End SubPrivate Sub Form_Load()
    Data1.DatabaseName = "D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"
    Data1.RecordSource = "Select * From employees"
    Data1.RefreshEnd Sub

Answer 2

Set Data1.Recordset = Nothing

Answer 3

set data1.connect=Nothing
set data1.recordset=nothing

Answer 4

Set Data1.Recordset = Nothing是的