Problema de setar registro Do Data Gried View

[toni26]

boa tarde esto com um pequeno problema tenho um sistema de nivel de permissao, porem esta funcionando tudo e na hora que vou pesquisar para editar na form de Administrador(Nivel de permissao) quando vou editar aparece varios niveis como vendedor,funcionario e administrador queria que quando o programa pesquisar que o nivel de acesso do camarada for administrador ele so manda informacao do administrador no data grid view tentei varias verificacao com o IF e nao deu certo segue meu codigo

 

Imports System.Data
Imports System.Data.OleDb

Public Class editar_Administardor

    Private Sub Consultar_Editar_All_User_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        PCarregaDados()
    End Sub

    Private Sub PCarregaDados()
        Using con As OleDbConnection = geetConectionCadClientesFotos()
            Try
                con.Open()
                Dim sql As String = "SELECT * FROM usuarios" ' quero que ele seta apenas usuarios com nivel de administrador e deixa ambos invisivel se for outro nivel 
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)



            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try

        End Using
    End Sub
    Private Sub PExcluirDados() '
        Using con As OleDbConnection = geetConectionCadClientesFotos()
            Try
                con.Open()
                Dim sql As String = "DELETE FROM usuarios WHERE codigo=" & CInt(dvgDadosUserAllDelete.CurrentRow.Cells("codigo").Value)
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                cmd.ExecuteNonQuery()

                MsgBox("Excluido com Sucesso", MsgBoxStyle.Information, "Sucesso")
                PCarregaDados()

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub

    Private Sub btnExcluir_Click(sender As System.Object, e As System.EventArgs) Handles btnExcluir.Click
        PExcluirDados()
    End Sub

    Private Sub dvgDadosUserAllDelete_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dvgDadosUserAllDelete.CellClick

        If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then
            Me.txtCodigo.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(0).Value
        End If
        If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then
            Me.txtNome.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(1).Value
        End If

        If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then
            Me.txtEmail.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(2).Value
        End If

        If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then
            Me.txtSenha.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(3).Value
        End If

        If (Not (dvgDadosUserAllDelete.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Is Nothing) Then
            Me.txtNivelPermissao.Text = Me.dvgDadosUserAllDelete.CurrentRow.Cells(14).Value
        End If

       
    End Sub



    Private Sub dvgDadosUserAllDelete_DataBindingComplete(sender As Object, e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dvgDadosUserAllDelete.DataBindingComplete
        With dvgDadosUserAllDelete

            .Columns("empresa").Visible = False
            .Columns("Celular").Visible = False
            .Columns("Telefone").Visible = False
            .Columns("Cpf cnpj").Visible = False
            .Columns("CEP").Visible = False
            .Columns("Endereco").Visible = False
            .Columns("bairro").Visible = False
            .Columns("cidade").Visible = False
            .Columns("Data de Registro").Visible = False
            .Columns("Data de Edicao").Visible = False
            .Columns("Data De Pedido").Visible = False
            .Columns("Data da Entrega").Visible = False
            .Columns("Dias Para Pagar").Visible = False
            .Columns("Salario").Visible = False
            .Columns("Carga Horaria").Visible = False
            .Columns("Horario de Chegada").Visible = False
            .Columns("Horario de Almoco").Visible = False
            .Columns("horario de Saida").Visible = False
            .Columns("estado").Visible = False
            .Columns("Data Nascimento").Visible = False
            .Columns("Imagem").Visible = False



            'Data Nascimento
        End With


    End Sub

    Private Sub btnNovo_Click(sender As System.Object, e As System.EventArgs) Handles btnNovo.Click
        Cadastrar_Administrador.ShowDialog()



    End Sub

    Private Sub EditarAdministrador()
        Using con As OleDbConnection = geetConectionCadClientesFotos()
            Try
                con.Open()
                Dim sql As String = "UPDATE usuarios SET nome=?,email=?,senha=?,[Nivel De Permissao]=? WHERE codigo=" & CInt(txtCodigo.Text)
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)

                cmd.Parameters.Add(New OleDb.OleDbParameter("@nome", txtNome.Text))
                cmd.Parameters.Add(New OleDb.OleDbParameter("@email", txtEmail.Text))
                cmd.Parameters.Add(New OleDb.OleDbParameter("@senha", txtSenha.Text))
                cmd.Parameters.Add(New OleDb.OleDbParameter("@[Nivel De Permissao]", txtNivelPermissao.Text))

                cmd.ExecuteNonQuery()

                MsgBox("Alterado com sucesso")

                PCarregaDados()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub

    Private Sub btnEditar_Click(sender As System.Object, e As System.EventArgs) Handles btnEditar.Click
        EditarAdministrador()
    End Sub
End Class