Private Sub CmdOK_Click()
If (CmbUserid.Text = "小叮咚" Or CmbUserid.Text = "机器猫") _
And TxtPassWorld.Text = "2008" Then MsgBox "进入系统"
Unload Me
MsgBox "该用户不存或者您输入的密码错误"
End If
End Sub

自己弄好了。

小弟学，谢谢各位大虾的支持

有那两种弄出来啊。