Access 2010 怎么自动备份

制作了一个窗体，上面有一个备份的按钮，点击就可以对Access进行备份，写了下面的代码来实现，可是出现提示说“用户定义类型未定义”，错误的行数指向红色的代码处。不知道怎么弄才行了，用的是2010Access。请各位指教...谢谢了
Public Function BackupDatabaseToFolder(ByVal strDBName As String, ByVal strDBPath As String) As Boolean
'**************************************************************************'
' Function BackupDatabaseToFolder() 函数用途为备份数据库文件
'**************************************************************************'
   Dim objFile As New FileSystemObject
   If Trim(strDBName) = "" Then
      BackupDatabaseToFolder = False
   End If
   On Error Resume Next
   objFile.CopyFile Trim(strDBPath) & strDBName, "E:\" & strDBName
   If Err.number = 0 Then
      BackupDatabaseToFolder = True
   Else
      BackupDatabaseToFolder = False
   End If
   On Error GoTo 0
End Function