1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，
成都创新互联是一家集网站建设,呈贡企业网站建设,呈贡品牌网站建设,网站定制,呈贡网站建设报价,网络营销,网络优化,呈贡网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：
private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '这里写验证代码... '通过验证后要干么elsemsgbox("用户名或者密码不正确！")end if end subprivate sub button2_click()endend sub
解决方案资源管理器中右键菜单，添加，WINDOWS窗体，弹出的对话框中，左栏已安装的模板中选择WINDOWS FORMS ，右边中找到 登录窗体。添加 。程序会添加一个登录界面。很方便。你试下。
这个控件不是.net Fremawork自带的，是用户自己添加的控件，你可以去网上找这样的控件，在VS里添加引用就可以了
system.data.sqlclient,而access则是引用的system.data.oledb
sub qd1(sender as object,e as eventargs)
dim user,pas as string
user = xm.text
pas = mm.text
dim myconn as string
myconn = "provider=microsoft.jet.oledb.4.0;" "data source=" server.mappath("data/fang.mdb")
dim xm1,zw,qx as string
'检查用户名是否为空
if xm.text"" then
try
dim mysql as string
mysql="select * from 管理 where 用户名='" user "' and 密码='" mm "'"
dim mycmd as oledbdataadapter = new oledbdataadapter(mysql,myconn)
dim ds as dataset = new dataset()
mycmd.fill(ds,"管理")
dim mytable1 as datatable
mytable1=ds.tables("管理")
if user=mytable1.rows(0).item(1) and pas=mytable1.rows(0).item(3) then
xm.text=""
else
message.text="请重新输入！"
end if
catch ex as exception
message.text="用户名或密码有问题，请确认后重新输入！"
end try
else
message.text="用户名或密码有问题，请确认后重新输入！"
end if
end sub
下面是注册用的，可以同时检查是否有重名。
dim myconn as oledbconnection
dim mycmd,mycmd1,mycmd2,mycmd3 as oledbcommand
dim strcon as string
dim strsql,strsql1,strsql2 as string
strcon ="provider=microsoft.jet.oledb.4.0;""data source="server.mappath("data/fang.mdb")
myconn = new oledbconnection(strcon)
myconn.open()
strsql = "select * from 管理 where 管理.用户名='" m_1 "'"
mycmd = new oledbcommand(strsql,myconn)
dim reader as oledbdatareader
reader = mycmd.executereader()
if reader.read() then '若存在
message.text="您输入的用户名已存在，请重新输入！"
reader.close()
myconn.close()
else '不存在，写入数据库
reader.close()
if m_4="管理员" then
strsql1="insert into 管理() values()"
mycmd1 = new oledbcommand(strsql1,myconn)
mycmd1.executenonquery
myconn.close()
message.text="您已成功注册！"
else
strsql2="insert into 管理() values()"
mycmd2 = new oledbcommand(strsql2,myconn)
mycmd2.executenonquery
myconn.close()
message.text="您已成功注册！"
end if
end if
else
message.text = "请检查页面中是否有错误！"
end if
end if
end sub
