Problema con login vb.net!!!

[Aquaventus]

Hola junior1920!.
Simplemente no digas al usuario que la "contraseña incorrecta" por seguridad, solo dile "usuario o password incorrecto", para que no le hagas saber si ese usuario existe y que tenga la opcion de intentar contraseñas.
Por ejemplo puedes crear un procedure simple como este y acomodarlo a tu function que retorne el COUNT en tu postgress:

Código SQL:

CREATE PROCEDURE SP_LOGIN
@NICK AS VARCHAR(50),
@PWD AS VARCHAR(50)
AS
SELECT COUNT(*) FROM USUARIO
WHERE NICK = @NICK AND PWD = @PWD
 

Que te devuelve la cantidad si existe o no.
En tu capa datos ejecutas tu reader y jalas la cantidad que te manda si es > 0 es porque si existe sino no existe.

Código vb:

Public Function login(ByVal logacceso As String,Byval clave as String) As Int32
Dim resultado As Int32
...
resultado = Convert.ToInt32(reader(0).ToString())
return resultado
 

Y ya en tu capa presentacion :

Código vb:

#Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
 
        ObjUsuarioLN=New UsuarioLN
    If ObjUsuarioLN.login(txtUSER_NAME.Text.Trim(), txtPASSWORD.Text.Trim()) > 0 Then
                Dim miform As New menuprincipal()
                miform.Show()
Else
        MessageBox.Show("Usuario o contraseña incorrecta")
        txtUSER_NAME.Focus
End If
 

Saludos!.