Dim rs As New ADODB.Recordset
If txtID.Text = "" Then
MsgBox "请输入用户名", vbInformation
Exit Sub
ElseIf txtoldpwd.Text = "" Then
MsgBox "请输入旧密码", vbInformation
Exit Sub
ElseIf txtnewpwd.Text = "" Then
MsgBox "请输入新密码", vbInformation
Exit Sub
End If
rs.Open "select * from 用户 where 用户名称 = '" & Trim(txtID.Text) & "'", Con, 1, 3


If rs.EOF = True Then

MsgBox "用户不存在", vbInformation
ElseIf txtoldpwd.Text <> rs("用户密码") Then
MsgBox "旧密码有误！", vbInformation
Else
rs("用户密码") = txtnewpwd.Text
rs.Update
End If
rs.Close
用户表里有：用户名称，用户密码，用户权限
老是显示旧密码错误这一条，求解答

光看代码不容易找到问题。你最好这样调试一下，把txtoldpwd.Text和rs("用户密码")分别在debug窗口中输出来，看看二者是否一样再说下一步。

改成“ElseIf trim(txtoldpwd.Text) <> trim(rs("用户密码")) Then”试试。要不提供工程和数据库，估计有大神帮你秒杀解决的。
还有一种情况：存在同名用户，而你要修改密码的用户没有排在第一位。

[ 本帖最后由 wmf2014 于 2015-5-29 05:41 编辑 ]

用你写的代码试，没发现问题。
先检查一下字段名和用户密码字段的数据格式。