高分求 vb登陆窗体 源代码！！！

这还不简单,如果你的电脑上有VB,的话,在FROM上放两个TEXT 一个设为password另一个不设和 BUTTON ,双击BUTTON在里面写代码,
if me.textbox1.text=""
messagebox.show("用户名不能为空,请输入用户名!")
if me.textbox2.text=""
messagebox.show("密码不能为空,请输入密码!")
if me.textbox1.text="你要求的用户品"and me.textbox.text="你要求的密码"
messagebox.show("你要求要登陆的另一个FROM窗体")
这是一个简单的登陆器,如果要和数据库联系的话,这就不好说了.那还要建库和表,麻烦多了.你看行不行/

真的很高分啊

大致写一点代码：
Private Sub CmdLogin()
dim db as database
dim rs as recordset
dim strUID as string
dim strPSW as string
dim blnErr as boolean
strUID=Text1.Text
strPSW=Text2.Text
if strUID="" then blnErr=true
if strPSW="" then blnErr=true
if blnErr=fasle then
set db=opendatabase("c:\dbLogin.mdb")
set rs=db.openrecordset("Select * From tabLogin Where UID=" & strUID)
...
else:msgbox"用户名或密码输入为空",,"