T-SQL程序设计，求大神帮忙

T-SQL程序设计，求大神帮忙

要求程序代码：
Dim mm As String

Private Sub Command1_Click()
If Text1.Text > mm Then
Text1.Text = ""
Label3.Caption = Label3.Caption - 1
Text1.SetFocus
If Label3.Caption = "0" Then
Text1.Enabled = False
MsgBox "第5口令错误结束输入"
Command1.Enabled = False
Else
MsgBox "第" & 5 - Label3.Caption & "口令错误请重新输入"
End If
Else
MsgBox "恭喜密码确"
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.PasswordChar = "*"
Label1.Caption = "请输入密码："
Label2.Caption = "剩余输入数："
Label3.Caption = "5"
mm = "ybugis2009"
End Sub