VB登陆程序

我是刚刚开始学VB的，哪位好心人帮我解决一个问题。
要求：建立一个数据库user 123456 password 654321
然后调用到VB里面去。
结果：介面为一个简单的文本框和一个确定按钮，输入1则提示输入用户
名和密码 输入正确则显示123 输入错误刚显示（错误）
当从介面输入2同样提示输入用户名和密码。输入正确则显示456
输入错误显示（错误）

好了，麻烦哪位高手帮一下我，感激不禁，答得好的话分数有追加。

'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录
'点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library
'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将数据库名及路径换成你的实际数据库名及路径
Dim UserName As String
Dim Password As String

s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("请输入用户名")
Password = InputBox("请输入用户密码")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo请换成你的实际数据表名

Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密码错误"
End If
End If
End If

End Sub

窗体代码。 Private Sub Command1_Click() Dim mr As New ADODB.Recordset Dim cnn As New ADODB.connection Dim sql As String If username(0).Text = "" Or password(1) = "" Then MsgBox "请输入用户名或密码!", vbOKCancel + vbExclamation Exit Sub End If sql = "select * from user1 where username='" & username(0).Text & "' and password='" & password(1).Text & "'" cnn.Open connection mr.Open sql, cnn If mr.EOF And mr.BOF Then MsgBox "用户名或密码错误!", vbOKCancel + vbExclamation Else Load Form2 Form2.Show Unload Me End If End Sub 模块代码 Function connection() As String connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\aa.mdb" End Function

Private Sub Command1_Click() Dim sText As String sText = Text1.Text Select Case sText Case 1, 2 MsgBox "输入用户名和密码" Case 123, 456 MsgBox "输入正确" Case Else MsgBox "输入错误" End Select End Sub 是不是上面的那个效果呀？？？ 如果不是你再说清楚一点看看，如果是的话，那么你可以不用数据库都是一样的。

'2个form，成功后显示form2，自己修改，共3次机会 'form1上2个text、1个command控件 private sub command1_click() static n if len(text1) = 0 or len(text2) = 0 then msgbox "输入用户名或密码！" else if text1 = 555 then if text2 = 666 then form2.show unload me else n = n + 1 end if else n = n + 1 end if end if if n = 3 then msgbox "非法用户！" unload me end if end sub private sub form_activate() text1 = "" with text2 .passwordchar = "*" .text = "" end with command1.caption = "登陆" end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息