主题：求指教，代码如何编写

我想编写如下代码，实现将某一单元格的文本内容，添加到另一个单元格中，与该单元格中原有内容合并，追加到原有内容之后。

如下代码，但是没起作用。

求指教！

Dim r As Row = Tables("表A").Current
Dim Result As DialogResult
Result = Messagebox.Show("是否要开始新的服务记录?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
    Dim br As Row = Tables("表B").AddNew()
    Dim brs As String = br("注意事项")
    If r IsNot Nothing Then
        Dim s As String = r("内容")
        brs =  brs & s
        br.Save()
    End If
Else
    Dim br As Row = Tables("表B").Current
    Dim brs As String = br("注意事项")
    If r IsNot Nothing Then
        Dim s As String = r("内容")
        brs =  brs & s
        br.Save()
    End If
End If