vb登陆界面设计

用VB新建一个工程，在窗体Form1上画两个label控件，一个是Label1一个是Label2，把Label1的Caption属性设为“用户名”，Label2的Caption属性设为“密码”，然后分别在这俩Label右边各画一个textbox控件，一个叫Text1，一个叫Text2，把Text2的PasswordChar属性设为“*”，同时把两个Textbox的Text属性设为空（就是都清空），然后在窗体的下部合适的位置画两个CommandButton控件，一个叫Command1，另一个叫Command2，分别设置他们的Caption属性为“确定”和“取消”。
界面就画完了，下面是代码。
先点菜单项里的工程下面的引用，找到Activex Data Objects 2.6或以上版本的类库，选中前面的对勾，然后确定，该操作是用来引用ADO对象的。
双击确定按钮，写入以下代码。
dim conn as new adodb.connection
dim rs as new adodb.recordset

if text1.text="" or text2.text="" then
msgbox "对不起，用户名与密码不能为空",vbinformation,"输入错误"
exit sub
end if

conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(这里去掉括号写入你的数据库文件路径形如：c:\aaa\bbb.mdb，这是Access数据库的用法);Persist Security Info=False"

conn.open
rs.open "select * from tbl_user where username='" & text1.text & "' and password='" & text2.text & "'",conn,3,3
if rs.recordcount<>0 then
'此处加入登录完成后要执行的操作，如果是要显示form2则参考下文
load form2
form2.show
rs.close
conn.close
unload me
else
'此处为密码验证失败。
msgbox "对不起，登录失败",vbinforamtion,"提示"
rs.close;
conn.close;
exit sub
end if