自动更新的复制问题...

Private Sub Command4_Click()
    Dim SourceFile As String
    Dim SourceFile1 As String
    Dim DestinationFile As String
    Dim DestinationFile1 As String
    Dim localVision As String
    Dim serverVision As String
    SourceFile = "C:\NEW\NA.mdb"
    SourceFile1 = "C:\NEW\JISSEKI.mdb"
    DestinationFile = "C:\NA.mdb"
    DestinationFile1 = "C:\\JISSEKI.mdb"
    If Dir(SourceFile) = "" Then
        MsgBox SourceFile & vbCrLf & "网络不通或文件不存在!", vbCritical, "提示"
        DoCmd.Quit
    End If
    blnReturn = uCopyFile(SourceFile, DestinationFile, prgState, lblState)
    MsgBox "升级成功！", vbInformation, "提示“"
    OpenDB (Path)
    DoCmd.Quit
End Sub

以上一段代码是程序更新用的...

使用到2个MDB库时,想实现2个文件同时都复制..

红色字体部分是复制NA.mdb的库的...能把JISSEKI.mdb也同时加如进入吗?

麻烦帮忙看一下.