Public function uniquenamamodis() as boolean has no parameters and its return type cannot be indexed

Quote:

If uniqueNamaModis(txtNamaModis.Text) = True Then

Public Function uniqueNamaModis() As Boolean
        Dim nmodis As String
        Dim query As String = "select count(namamodis) as namamodis from master_planogram where namamodis='" + txtNamaModis.Text & "'"
        Dim sqlCon As New MySqlConnection(ObjFungsi.ConDataProduction)
        sqlCon.Open()
        Dim cmd As New MySqlCommand(query, sqlCon)
        Dim dr As MySqlDataReader
        dr = cmd.ExecuteReader()

        While dr.Read()

            Try
                nmodis = dr("namamodis").ToString()
                Return (nmodis <> "0")

                If nmodis <> "0" Then
                    Return False
                End If

            Catch e As Exception
                Dim message As String = "Error"
                message += e.Message
            Finally
                dr.Close()
                sqlCon.Close()
            End Try
        End While

        Return True
    End Function

Protected Sub btnEditSimpanSelected_Click(sender As Object, e As EventArgs)
        Dim sqlCon As New MySqlConnection(ObjFungsi.ConDataProduction)
        sqlCon.Open()
        Dim cmd As MySqlCommand = sqlCon.CreateCommand()
        cmd.CommandType = CommandType.Text

        If uniqueNamaModis(txtNamaModis.Text) = True Then
            cmd.CommandText = "UPDATE master_planogram Set namamodis='" & txtNamaModis.Text & "'"
            cmd.CommandText += " , namaplu='" + txtPlu2.Text & "', deskripsiplu='" + txtDesc2.Text & "'"
            cmd.CommandText += " , kodetoko='" + txtSrcByKdtk.Text & "', namatoko='" + txtSrcByNmtk.Text & "', cabang='" + txtSrcByKdcab.Text & "'"
            cmd.CommandText += " where namamodis='" + txtNamaModis.Text & "'"
        Else
            cmd.CommandText = "INSERT INTO master_planogram values('" & txtNamaModis.Text & "', '" + txtPlu2.Text & "', '" + txtDesc2.Text & "'"
            cmd.CommandText += " , '" + txtSrcByKdtk.Text & "', '" + txtSrcByNmtk.Text & "', '" + txtSrcByKdcab.Text & "')"
        End If
        cmd.ExecuteNonQuery()
        sqlCon.Close()
    End Sub