Visual Basic - Problema con Backup y Restaurar

Hola a todos, tengo una nueva consulta que hacerles, cuando yo restauro una base de datos de access, lo hace lo mas bien, pero no se actualizan los registros, me cambia la base, pero en los datagrid me quedan los datos anteriores, si se cierra y se vuelve abrir el sistema anda lo mas bien, los datagrid tienen los datos de la base restaurada, que me recomiendan hacer??? asi hago el backup y la restauracion:

Backup

Dim Base_Original As String, Base_Backup As String
Dim Fs As Variant

Base_Original = App.Path & "\DB.mdb"
Base_Backup = App.Path & "\Backup\DB.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile Base_Original, Base_Backup, True


Restaurar

Dim Base_Original As String, Base_Backup As String
Dim Fs As Variant

Base_Original = App.Path & "\Backup\DB.mdb"
Base_Backup = App.Path & "\DB.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile Base_Original, Base_Backup, True

Gracias!!!