请求帮助
If ComboBox1.Text = "" ThenMsgBox("系统禁止无用户名登录", 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位字符串
字段中密码存在允许通过.