数据库备份的问题

Question

以下是我的一段代码，单独运行此界面可以进行数据库的备份。但是连接到整个工程中就不可以备份数据了。这是为什么阿？问题出现在哪里阿，请高手指点。Private Sub cmdCopy_Click()   ''数据库备份
  On Error Resume Next
  FileCopy App.Path & "\clgl.mdb", App.Path & "\数据库备份\clgl.mdb"
  MsgBox "备份成功！", , "系统提示"
End SubPrivate Sub cmdExit_Click()   '''退出此界面
  Set adoCon = New ADODB.Connection
  adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
  Unload Me
End SubPrivate Sub Form_Load()
  frmDataCopy.Width = 5640
  frmDataCopy.Height = 2190
  adoCon.Close
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Set adoCon = New ADODB.Connection
  adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
End Sub

Answer 1

Private Sub Form_Unload(Cancel As Integer)
  Set adoCon = New ADODB.Connection
  adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
End Sub这里估计是帖错了吧??? 我看晕了
为什么楼主是 窗体加载的时候,关闭连接,而unload的时候却是打开????
filecopy没错啊,没能在你给的代码中看出错误!