麻烦问一下关于access 批量更新的问题

我有一个窗体main，里面有个子窗体subform，现在通过单选框选择了子窗体的数据后，可以通过输入主窗体上面的A和B两个文本框的内容，然后通过按钮更新表1中被选择数据的a和b两个字段的数据，麻烦看一下我下面写的有什么问题哈，如果不对的话，麻烦帮忙修改一下。谢谢啦～～
Private Sub 按钮_Click()
If MsgBox("您确认要批量处理吗,请慎重!!!", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
CurrentProject.Connection.Execute "update 表1 set [a]=me.A, [B]=me.B WHERe 单选框=true"
Me.refresh
End If
End Sub

CurrentProject.Connection.Execute "update 表1 set [a]=‘“ & me.A & ”’, [B]=‘“ & me.B & ”’ WHERe 单选框=true"

更新查询，查询语句： update 表1 set 表1.a=表2.a,表1.b=表2.b,表1.d=表2.d from 表1,表2 where 表1.c=表2.c 祝你成功！