Login funktion, hvis login er i db og hvis ikke?

Hej alle. Jeg er ved at lave et login system, men mangler hjælp...

Har koden:

Dim objRS As SqlCommand = New SqlCommand("SELECT UserId FROM tbl_Users WHERE UserName='" & strUsername & "' AND Password='" & txtPassword.Text & "'", objConn)
                Dim rdr As SqlDataReader = objRS.ExecuteReader

                While rdr.Read
                    UserId = 27

                    Dim newEventArgs As New LoginSucceededEventArgs
                    newEventArgs.UserId = UserId

                    RaiseEvent LoginSucceeded(Me, newEventArgs)
                    'Skjul dialogen
                    Me.DialogResult = DialogResult.OK

                End While

                objRS = Nothing


Det virker også fint, men hvis nu brugeren med det angivet password ikke er i databasen, hvordan kan jeg gøre så jeg har muligheden for at vise data hvis brugeren ikke blev fundet i databasen. Nok noget IF eof Then eller noget..  Hvad skal der ændres ?