Private Sub Command1_Click()

"確認修改密碼提交

If Text1(0)

.Text

= "" Then

MsgBox "你沒有輸入名稱，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(1)

.Text

= "" Then

MsgBox "你沒有輸入原密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(2)

.Text

= "" Then

MsgBox "你沒有輸入新密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(3)

.Text

= "" Then

MsgBox "你沒有再次輸入新密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

If Text1(2)

.Text

<> Text1(3)

.Text

Then

MsgBox "你輸入的新密碼和再次輸入的新密碼不符，請重新輸入！", 16, "錯誤！"

Exit Sub

If

If Text1(0)

.Text

<> YHMC Then

MsgBox "你輸入的名稱不是你的名稱，請重新輸入！", 16, "錯誤！"

Exit Sub

If

If Text1(1)

.Text

<> YHMM Then

MsgBox "你輸入的原密碼不是你的密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

Call conn

stql = "select * from 資料表 where 使用者名稱="" & Text1(0)

.Text

& "" AND 密碼="" & Text1(1)

.Text

& "" "

Set = conn.OpenRecordset(stql)

If Not

RS.EOF

Then

RS.Edit

RS!密碼 = Text1(2)

.Text

RS.Update

MsgBox "祝賀您！你的管理員密碼修改成功！", 48, "修改成功！"

Else

MsgBox "沒有你查詢的記錄！", 16, "錯誤！無記錄！"

End If

RS.Close

Set RS = Nothing

conn.Close

Set conn = Nothing

End Sub