如何在Access中设置一个按钮来同步从Access到SQL Server的所有内容？

Private Sub SyncButton_Click()
    Dim db As DAO.Database
    Dim strSQL As String
    
    ' 连接到SQL Server数据库
    Set db = OpenDatabase("ODBC;DRIVER={SQL Server};SERVER=服务器地址;DATABASE=数据库名;UID=用户名;PWD=密码;")
    
    ' 删除SQL Server中的所有数据
    strSQL = "DELETE FROM 表名"
    db.Execute strSQL
    
    ' 将Access中的数据插入到SQL Server
    strSQL = "INSERT INTO 表名 (字段1, 字段2, ...) SELECT 字段1, 字段2, ... FROM Access表名"
    db.Execute strSQL
    
    ' 关闭数据库连接
    db.Close
    
    ' 释放资源
    Set db = Nothing
    
    ' 提示同步完成
    MsgBox "同步完成！"
End Sub