求助：：怎么把这段源码变成宏运行呢？

If CurrentProject.Name = "综合系统.accdb" Then
Kill CurrentProject.Path & "\系统.accdb"

If Dir("\\192.168.31.1\XiaoMi\数据\软件\综合系统.accdb") <> "" Then
FileCopy "\\192.168.31.1\XiaoMi\数据\软件\综合系统.accdb", CurrentProject.Path & "\系统.accdb"
 Application.FollowHyperlink CurrentProject.Path & "\系统.accdb"
 DoCmd.Quit

End If
End If

If CurrentProject.Name = "系统.accdb" Then
Kill CurrentProject.Path & "\综合系统.accdb"

If Dir("\\192.168.31.1\XiaoMi\数据\软件\综合系统.accdb") <> "" Then
FileCopy "\\192.168.31.1\XiaoMi\数据\软件\综合系统.accdb", CurrentProject.Path & "\综合系统.accdb"
Application.FollowHyperlink CurrentProject.Path & "\综合系统.accdb"
DoCmd.Quit
End If

End If

把这个源码变成宏运行，求助呀