Check Password VB.NET

Public Function _kiemtra(ByVal strLenh As String) As Integer
        Dim intkt As Integer
        open_connect()
        Dim cmd As New SqlCommand(strLenh, strconnect)
        intkt = cmd.ExecuteScalar
        strconnect.Close()
        Return intkt
End Function