主题：[求助]数据后台更新的问题

请教数据后台更新遇到的问题

Dim dr As DataRow
Dim s1,s2 As String

dim dt as datatable
cmd.ConnectionName = _DBSource1
cmd.CommandText = "Select * From {公开_用户登陆统计} Where 人员编号 = '1000'"
dt = cmd.Executereader(True)
dr = dt.datarows(0)

     dr("登录次数标准") = dr("登录次数标准") + 10
     dr.save()

在2014版中 dr.save() 不能保存更新数据，只能用dt.save() 保存更新，以前的代码都不执行了