应该是这段代码的问题
a.CommandText = "Select Count(*) From {用户} Where 用户名称 = '" & b & "'"
Dim t As DataTable = a.ExecuteReader(True)
t.DataRows(0)("用户密码") = c
t.save()
a.CommandText = "Select Count(*) From {用户} Where 用户名称 = '" & r & "'"
Dim u As DataTable = a.ExecuteReader(True)
u.DataRows(0)("用户密码") = c
If d <> s Then
u.DataRows(0)("用户角色") = d
End If
你删除看看
如果你设置为a.ExecuteReader(True)
应该就无法使用这种查询表 Select Count(*) From {用户} Where 用户名称 = '" & r & "'"
加好友 
发短信
Post By：2013/6/7 11:54:00 [显示全部帖子]
