If ComboBox1.Text = "" Then
            MsgBox("系统禁止无用户名登录", vbInformation + vbOKOnly, "系统信息")
            Exit Sub
        End If
        Dim spass As String = TextBox2.Text
        If TextBox2.Text = "" Then
            MsgBox("系统禁止用户无密码登录", vbInformation + vbOKOnly, "系统信息")
            Exit Sub
        End If
        Dim rr As Object = ""
        With rr
            If rr <> !password.Text Then
                MsgBox("你的密码错误,请核实后重新输入", vbInformation + vbOKOnly, "系统信息")
            End If
        End With

数据库:DaTongSport.mdf 数据表:UserInformation,
数据库字段:password ,字段值: 6到10位字符串

什么东西啊









" border="0" />
[url=http://www.tianlai.cc]人体艺术[/url]