Uniquenamamodis общественные функции() как логическое имеет параметров и тип возвращаемого значения не может быть проиндексирован

---

у меня проблема с функцией вставки и обновления кнопок,ошибка в строке

Цитата:

Если uniqueNamaModis(txtNamaModis.Text) = True, то

я использую vb.net веб-формы. пожалуйста, помогите мне

Что я уже пробовал:

myfunction ниже:

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

---