Question

求VB 高手解决DATA控件问题

Dim name As Variant
If Text1.Text = "" Then
MsgBox ("账号不能为空")
ElseIf Text1.Text <> "" Then
name = Text1.Text
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst ("账号=" & "'" & name & "'")
If Data1.Recordset.NoMatch Then
MsgBox ("用户不存在")
ElseIf Data1.Recordset("密码") = (Text2.Text) Then
main.Show
Else:
MsgBox ("密码错误")
End If
End If
我希望当输入不存在用户的时候 弹出用户不存在，但我的程序直接执行main.show 进入下一页面，求懂DATA控件高手指点，QQ95215417

Answer 1

Dim name As Variant
If Text1.Text = "" Then
MsgBox ("账号不能为空")
exit sub
end if

name = Text1.Text
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst ("账号=" & "'" & name & "'")
If Data1.Recordset.NoMatch Then
MsgBox ("用户不存在")
exit sub
end if
If Data1.Recordset("密码") = (Text2.Text) Then
main.Show
Else:
MsgBox ("密码错误")
End If