主题：[求助]请教，我这段代码什么错误？

我在“保存”按钮加上这段代码，提示错误，请教高手指点如何更正？谢谢

代码：

With e.form
    If .Controls("TextBox1").Value Is Nothing   Then
        MessageBox.Show("速记内容不能为空!","提示")
        Return
    Else
        Dim dr As Row
                dr("速记内容") = .Controls("TextBox1").Value
    End If
End With

错误提示：

此主题相关图片如下：未命名.jpg

问题出在这里：

Dim dr As Row
dr("速记内容") = .Controls("TextBox1").Value

是不是应该改为：

Dim dr As Row = Tables(“表名”).Current
dr("速记内容") = .Controls("TextBox1").Value