VB备份数据库问题??

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

Private Sub Command2_Click()
Me.Hide
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

上面的代码是我弄的一个备份数据库！当我只运行这个备份窗口的时候，可以备份。但是，如果我于工程来备份的话，备份不进去。！怎么回事？
备份路径有表，可表里没数据。
请问那里出问题了？请帮一下我
就是说 如果我是直接运行备份窗口来备份。备份表里面有数据。如果我运行工程来测试备份。备份表里没数据!添加不进!

VB备份数据库问题?? VB 远程备份SQL 数据库 数据库备份问题 VB的数据库备份代码怎么写? vb+access数据库备份代码写法 vb备份acces数据库的表 VB数据库问题 VB与数据库问题 vb数据库的问题 VB编程数据库问题