strquerysql = "select 超级口令 from 系统"
Set RstTemp = Dbs.OpenRecordset(strquerysql)
If (IsNull(RstTemp.超级口令 And txtPassword.Text = "") _
Or (Not IsNull(RstTemp.超级口令 And txtPassword.Text = RstTemp.Fields(0)) Then
'相应操作
Else
MsgBox "口令无效!", , "超级用户口令"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
End If