Problema con login vb.net!!!

[junior1920]

Claro es una aplicación de windows y lo trabajo en capas, lo trabajo con function en postgres
y la función o procedure esta bien.
Ahora el problema esssss que cuando por ejemplo si lo dejo así el código en el formulario login:

Código vb:

Imports System.Data
Imports EntidadNegocio
imports LogicaNegocio
Public Partial Class login
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private ObjUsuarioEN As UsuarioEN
    Private ObjUsuarioLN As UsuarioLN
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
 
    End Sub
    #Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
        ObjUsuarioEN=New UsuarioEN
        ObjUsuarioLN=New UsuarioLN
'       ObjUsuarioEN.logacceso=Ltrim(Rtrim(txtUSER_NAME.Text))
'       ObjUsuarioEN.clave=Ltrim(Rtrim(txtPASSWORD.Text))
ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text)))
menuprincipal.show()
End Sub
#End Region
End Class
 

Ingreso los datos y si esos datos los ingreso erroneamente me va a llamar al formulario menu; es por eso que le quiero hacer una condicional y estaba pensando algo así:

Código vb:

Imports System.Data
Imports EntidadNegocio
imports LogicaNegocio
Public Partial Class login
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private ObjUsuarioEN As UsuarioEN
    Private ObjUsuarioLN As UsuarioLN
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
 
    End Sub
    #Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
        ObjUsuarioEN=New UsuarioEN
        ObjUsuarioLN=New UsuarioLN
'       ObjUsuarioEN.logacceso=Ltrim(Rtrim(txtUSER_NAME.Text))
'       ObjUsuarioEN.clave=Ltrim(Rtrim(txtPASSWORD.Text))
'ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text)))
         If(ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text))))Then
                menuprincipal.show()
Else
        txtUSER_NAME.Focus
End If
End Sub
#End Region
End Class
 

pero no hace nada ya intente colocar Cobj,Cbool después del if pero no me valida
además quiero poder pasar la id del usuario, el nombre de usuario,etc es por eso que mi clase UsuarioAD tiene variables públicas:

Código vb:

Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
 

esas las quiero hacer que pasen al formulario menuprincipal