Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path & "\data\ly.mdb", App.Path & "\数据库备份\ly.mdb"
MsgBox "备份成功！", , "系统提示"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set conn = New ADODB.Connection
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\ly.mdb" & ";Persist Security Info=False"
End Sub

如果我是直接运行备份窗口来备份。备份表里面有数据。如果我运行工程来测试备份。备份表里没数据!添加不进!
怎么回事？要怎么弄？

运行工程来备份..是否你已经正在使用该数据库呢?..