Code:
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim login = Me.Users2TableAdapter.UsernamePassword(txtUsername .Text, txtPassword.Text)
If login Is Nothing Then
MsgBox("wrong details", , "INCORRECT LOGIN OR PASSWORD")
Else
MsgBox("welcome")
End If
Leave a comment: