'ノめ祅嘲
Private Sub CmdLogin_Click()
Set rs = New ADODB.Recordset
sql = "Select * From userID Where ID='" & Trim(TxtID.Text) & "'"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.RecordCount = 0 Then
MsgBox "赣ノめぃ" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtID.SetFocus
Else
rs.MoveFirst
If Trim(TxtPWD.Text) <> Trim(rs.Fields("PWD")) Then
MsgBox "盞絏岿粇" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtPWD.SetFocus
Else
Unload Me
MsgBox "祅嘲Θ", vbExclamation, "祅嘲Θ"
End If
End If
End Sub