BAses de datos

[foreneo]

Miren no si si esto viene en las faqs o no por que no lo encuentro, lo quiero saber es que si alguien sabe como hacer una copia de la base datos, pero cuando la copie que se guarde con en el nombre de la fecha actual

On Error GoTo NOHAGASNADA
Screen.MousePointer = 11
FileCopy App.Path & "\Beneranda.mdb", App.Path & "\Respaldos\res_beneranda.mdb"
NOHAGASNADA:
Screen.MousePointer = vbDefault

yo hago eso, pero en vez de que se llame res_beneranda.mdb que tenga el nombre de la fecha actual,

alguien sabe??