主题：[求助] 修改密码报错。

老师，以下代码，在服务端，有时会报错，这种情况的偶尔发生，但一但报错了，服务器就不运行了，没找到问题点在那里？

Dim wb As New weui

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim pkey As Integer = e.GetValues("key")
If e.PostValues.count = 0 Then
    wb.AddForm("","editpwd1","editpwd.htm")
    With wb.AddInputGroup("editpwd1","ipg1","更改密码")
        If pkey > 0 Then
            Dim fr As DataRow = DataTables("人员表").SQLFind("序号 = " & pkey)
            If fr IsNot Nothing Then
                .AddInput("name","姓名","text").Value = fr("姓名")
            Else
                .AddInput("name","姓名","text")
            End If
        Else
            .AddInput("name","姓名","text")
        End If
        .AddInput("opwd","旧 密 码","password").Placeholder = "第一次设置密码时为空"
        .AddInput("Npwd1","新 密 码","password")
        .AddInput("Npwd2","重复密码","password")
    End With
    With wb.AddButtonGroup("editpwd1","btg1",True)
        .Add("btn1", "确认", "submit")
        .Add("btn1", "返回","","logon.htm").Kind = 1
    End With
Else
    Dim fr As DataRow = Functions.Execute("fir",e.PostValues("name") )
    If fr Is Nothing Then
        With wb.AddMsgPage("","msgpage","提示", "您不是本公司的员工或您输入的用户名错误!")
            .icon = "Warn" '改变图标
            .AddButton("btn1","返回").Attribute = ""
        End With
    Else
        If fr.IsNull("pwd") = False Then
            If e.PostValues("opwd") <> fr("pwd") Then
                With wb.AddMsgPage("","msgpage","密码错误", "您输入的旧密码错误!")
                    .icon = "Warn" '改变图标
                    .AddButton("btn1","返回").Attribute = ""
                End With
            End If
        End If
        If e.PostValues("npwd1") = e.PostValues("npwd2") Then
            fr("pwd") = e.PostValues("npwd2")
            fr.Save
            With wb.AddMsgPage("","msgpage","修改提示", "密码修改完成!")
                .AddButton("btn1","返回","logon.htm")
            End With
        Else
            With wb.AddMsgPage("","msgpage","输入错误", "您二次输入的密码不一致!")
                .icon = "Warn" '改变图标
                .AddButton("btn1","返回").Attribute = ""
            End With
        End If
    End If
End If
'wb.AddPageFooter("","pf1","").AddLink("返回登录","logon.htm")
e.WriteString(wb.Build) '生成网页