真的蠢得死！！！
Public Function gm(ByRef Opwd, ByRef Npwd, ByRef Npwd1) As Boolean
   Dim flag1 As Boolean
   'Dim reponse
   flag1 = False
   If Opwd = use_pwd1 Then
        If Npwd = Npwd1 Then
              rec.Open "select * from users where use_name like ' " & use_name1 & " ' ", con, 1, 3
              'rec.Open "select * from users where use_name like 'use_name1' ", con, 1, 3
              MsgBox rec.Fields(0).name
              MsgBox rec.Fields(1).name
              rec.Fields(1).Value = Npwd
              rec.Close
              flag1 = True
              
         Else
                  MsgBox "两次输入的新密码不一致，请重新输入！"
        End If
    Else
            MsgBox "原密码不正确！"
    End If
    gm = flag1
End Function
怎么还会出现　　EOF或数据被删除这样的错误呢？
函数主要是改密码，找到相应的用户名，把密码写进入

Public Function gm(ByRef Opwd, ByRef Npwd, ByRef Npwd1) As Boolean Dim flag1 As Boolean 'Dim reponse flag1 = False If Opwd = use_pwd1 Then If Npwd = Npwd1 Then rec.Open "select * from users where use_name like '" & use_name1 & "'", con, 1, 3 '单引号旁边的空格去掉 If Not rec.Eof Then MsgBox rec.Fields(0).name MsgBox rec.Fields(1).name rec.Fields(1).Value = Npwd rec.Close flag1 = True Else msgbox "用户名不存在!" End If Else MsgBox "两次输入的新密码不一致，请重新输入！" End If Else MsgBox "原密码不正确！" End If gm = flag1 End Function

我在此谢谢了
我的问题终于解决了
谢谢！！
！！
！
！