如何用vb做登录界面

Dim Rs0 As New ADODB.Recordset

Dim Conn As New ADODB.Connection

Sql = "select * from 密码表 where 用户名='" &Trim(Text1.Text) &"' and 密码='" &Trim(Text2.Text) &"'"

If Rs0.State = 1 Then Rs0.Close

Rs0.CursorLocation = adUseClient

Rs0.Open Sql, Conn

If Not Rs0.EOF And Not Rs0.BOF Then

Label1.Caption = "登 录 成 功"

Else

Label1.Caption = "用户名或密码错误"

Exit Sub

End If

我好像看出来一点问题，，，

Adodc1.Recordset.Fields(1).Value对应是应该是数据库里的“密码”这个字段。

而你是用Adodc1.Recordset.Fields(1).Value

<>

Combo1.Text

进行比较，肯定是比不来出什么正确的结果的，它俩天生就不相等。所以程序会继续向下运行。

用户名应该

对应Adodc1.Recordset.Fields(0).Value

---