如何实现点击备份按钮,运行时间加文件名备份?具体代码怎样写?

各位老师,本人刚开始学ACCESS,有个问题想请教?

从论坛上看到了竹笛老师关于时间加文件名的备份代码,它是用这样一个函数

Public Function backup()
   Dim a As String
   Dim b, c As String
 

   a = Str(Date)    ' 产生当前日期字符串
   b = "bak"        ' 产生备份标识
   c = "C:\Program Files\Bojing\" & a & b & ".mdb"

   ' 产生备份文件名

   FileCopy "C:\Program Files\Bojing\Bojing.mdb", c
End Function

现在我自己制作一个备份按钮,如何才能实现点击此按钮,会执行此函数,然后达到备份数据库的目的.

我现在是这样套加但总是出错,麻烦各位老师替学生指点一下,万分感谢.

Private Sub 备份_Click()

Public Function backup()
   Dim a As String
   Dim b, c As String
 

   a = Str(Date)    ' 产生当前日期字符串
   b = "bak"        ' 产生备份标识
   c = "C:\Program Files\Bojing\" & a & b & ".mdb"

   ' 产生备份文件名

   FileCopy "C:\Program Files\Bojing\Bojing.mdb", c
End Function

End Sub