Private Sub backup_Click()

Dim msg As Integer

msg = MsgBox("DBのバックアップを開始します", vbYesNo, "警告")
If msg = vbYes Then
GoTo 1
Else
GoTo 2

1:
'dbバックアップモジュール
Dim objfso As FileSystemObject
Dim str元ファイル  As String
Dim str新ファイル  As String

'場所の指定
Set objfso = CreateObject("scripting.filesystemobject")
str元ファイル = "\\10.10.10.10\あいう\えおか\きくけ\こさしす\ACCESSだよー.accdb"
str新ファイル = "\\10.10.10.10\あいう\えおか\きくけ\こさしす\backup\backup.accdb"

'上書きするかの有無
'trueの場合上書き、falseの場合エラー
objfso.CopyFile str元ファイル, str新ファイル, True

Set objfso = Nothing

MsgBox "DBのバックアップが完了しました"

2:
End If
End Sub