问题出在这里:
Dim dr As Rowdr("速记内容") = .Controls("TextBox1").Value
是不是应该改为:
Dim dr As Row = Tables(“表名”).Currentdr("速记内容") = .Controls("TextBox1").Value