vb中用户登陆界面，怎样写代码程序，有没有源代码提供一下，要解释一下阿

mRst.Open "select * from sysuser where use_name='" & CboUser.Text & "'"
If mRst("use_password").Value = TxtPassword.Text Then
mRst("use_times").Value = mRst("use_times").Value + 1
mRst("use_logintime").Value = Now

mRst.Update
mRst.Close

gBlnAdmin = False
gStrUser = CboUser.Text

FrmMain.StbMain.Panels.Item(1).Text = "欢迎您，" & CboUser.Text & "！"
FrmMain.StbMain.Panels.Item(2).Text = "登录时间 " & Date & " " & Time

Call FrmMain.fresh_project

mBlnLogon = True

Unload Me

Exit Sub
Else
mRst.Close

strMsg = MsgBox("密码错误，请重新输入！")

TxtPassword.Text = ""

TxtPassword.SetFocus
End If