主题：我想做一个自动备份Access数据库的功能，请问怎样实现呢？

Dim d As Date = Date.Now
Dim s As String = Format(d,"yyMMddHHmmss")
FileSys.CopyFile(projectpath & "*******.mdb","********" & s & ".mdb",True)
MessageBox.Show("数据备份完成!")

你可以参考一下。