关于数据备份

Question

我做了一个人事管理系统，但是当我添加新信息后，在进行数据库备份就不行了。我添加信息包括添加图片，并把图片存到数据库，其代码是：
DataFile = 1
If FNAME <> "" Then
Open FNAME For Binary Access Read As DataFile
Fl = LOF(DataFile)
 If Fl = 0 Then
        Close DataFile
        Exit Sub
    End If
        block = Fl \ blocksize
    Fragment = Fl Mod blocksize
    ReDim Chunk(Fragment)
    Get DataFile, , Chunk()
    Adodc1.Recordset.Fields("照片").AppendChunk Chunk()
    ReDim Chunk(blocksize)
    For I = 1 To block
        Get DataFile, , Chunk()
        Adodc1.Recordset.Fields("照片").AppendChunk Chunk()
    Next I
Close DataFile
End If
 Adodc1.Recordset.UpdateBatch
前面一段是添加图片的代码。
然后我再进行数据库备份就出错了。数据库备份的代码是：
Me.Caption = "正在复制文件，请等待....."
   FileCopy xtlj & "db4.mdb", File1.Path & "\" & "db4.mdb"
   Me.Caption = "标准数据库备份！"
   hxfyn = MsgBox("复制完成!", 48)
File1.Refresh
如果不进行新信息的添加，数据库备份就会成功，这是什么原因呢？是不是因为在添加信息时关闭了数据库？我应该如何来修改呢？因为我是边学VB边做系统的，希望大家能帮我解决这问题，谢谢！我期待你们的回复。

Answer 1

楼主这是 进行文件的操作吧不是对数据库进行备份啊
数据库备份的途径有多种偶用的是这样的一条SQL语句；
sql = "backup database 数据库名 to disk = '" & Trim(txt_route.Text) & "'"'" & Trim(txt_route.Text) & "'"是自己定义的位置

Answer 2

我的路径是用drive控件和dir，file来选择的，我应该怎么实现把数据库备份出来呢，希望给以指点，我是在做毕业设计，急着要改。