vb做个登陆程序 急求

text1 和text2 和个按钮 text1是帐号哦啊 text2是密码 按钮1是登陆 text1输入帐号fff ggg ddd sss hhh jjj rrr aaa vvv bbb mmm任意一个 密码是83103023 点登陆就进form2 如果错误就提示帐号密码错误

Private Sub command1_click()
Dim u, pwd
u = Text1.Text
pwd = Text2.Text
If pwd = "83103023" Then
Select Case u
Case "fff"
Form2.Show
Case "ggg"
Form2.Show
Case "ddd"
Form2.Show
Case "sss"
Form2.Show
Case "hhh"
Form2.Show
Case "jjj"
Form2.Show
Case "rrr"
Form2.Show
Case "aaa"
Form2.Show
Case "vvv"
Form2.Show
Case "bbb"
Form2.Show
Case Else
MsgBox "用户名错误"
End Select
Else
MsgBox "你输入的密码错误"
End If
End Sub

测试通过

方法一(简单的,有漏洞)
If InStr("fff ggg ddd sss hhh jjj rrr aaa vvv bbb mmm", Text1.Text) <> 0 And Text2.Text = "83103023" Then
form2.Show
Else
MsgBox "输入错误"
End If

方法二(完整的,安全的)
Private Sub Command1_Click()