Ciao Prova questo
codice:
Private Sub mcmdcopiadb_Click()
Dim risposta As Integer
  risposta = MsgBox("Si è scelto di copiare il database nella cartella C:\Programmi\Tuoprogramma\nuovo_DB!." & vbCrLf & "" & vbCrLf & _
   "Copiare il database?", vbYesNoCancel + vbQuestion, "NomeDelTuoProgramma")
  If risposta = vbYes Then
     Dim fso As Variant
    Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CopyFile "C:\Programmi\Tuoprogramma\nuovo_DB.mdb", "c:\Programmi\Tuoprogramma\nuovo_DB\nuovo_DB.mdb"
  Set fso = Nothing
  MsgBox "Il database è stato copiato con successo nella cartella C:\Programmi\Tuoprogramma\nuovo_DB!", vbInformation, " NomeDelTuoProgramma"
 Exit Sub
End If
  If risposta = vbNo Then
   Exit Sub
  End If
  If risposta = vbCancel Then
   Exit Sub
  End If
End Sub