谁是VB高手,我要简单VB登陆代码!急!

来源：百度知道 编辑：UC知道 时间：2024/05/12 01:23:15
我要VB登陆界面的代码,要求,能把用户名输错,还是密码输错的代码语句分开,尽量设计的漂亮一点,谢谢!
别给我解释，我要实际代码, 我用ACCESS数据库

先去判断有没有这个用户 如果有再去判断密码是否正确 如果没有这个用户 直接就弹msg了

不知道有什么难的！~

工程引用ADO

模块里

dim cn as adodb.connection

pualic rs as adodb.recordset

sub conn()

cn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\;Jet OLEDB:Database Password=jixu21win2004;Persist Security Info=False"
'这里的连接根据情况修改一下
end sub

sub rss()

if rs.state=adstateopen then

rs.closse

end if

end sub

在窗体模块里

provite sub cmdok-click()

dim temp as adodb.recoreset

temp.Open "select * from Operator where Peo_Name='" & Trim(txtUserName.Text) & "'", cn, 3, 2
If temp.EOF = True Then
MsgBox "此用户名不存在！", vbInformation + vbOKOnly, "系统提示："
Exit Sub
End If
temp.Close

temp.open"select * from password where pass='"&trim(tx