Tables("表A").Current("新") = e.Sender.Checked
--------------
If e.Sender.Checked Then
Tables("表A").Current("新") = "新新新"
End If