Private XIndex As Integer
Private Sub drgcita_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles drgcita.CellClick
If e.ColumnIndex = 0 Then
XIndex = Me.drgcita.CurrentRow.Index
If VerificaCodigo(Me.drgcita.Item(1, XIndex).Value.ToString) = True Then
Me.drgcita.Item(0, XIndex).ReadOnly = True
Me.drgcita.Item(1, XIndex).ReadOnly = True
End If
End If
End Sub
Private Function VerificaCodigo(ByVal Codigo As String) As Boolean
Try
Dim conexion As New SqlConnection(My.Settings.SisTamboConnectionString )
Dim drPermisos As SqlDataReader
Dim acceso As Boolean
Dim cmd As New SqlCommand("Exec VerificaEstado '" & Codigo & "'", conexion)
conexion.Open()
drPermisos = cmd.ExecuteReader
If drPermisos.Read Then
acceso = drPermisos.Item("nvEstado")
Return acceso
conexion.Close()
End If
conexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function

' Creamos un procedimiento almacenado en el sql
' Create procedimiento VerificaEstado
' @Codigo nvarchar(4)
'AS
' SELECT nvEstado
' FROM NombreVia
' WHERE (IdNombreVia = @Codigo)
' la tabla que uso es algo similiar al tuyo
CREATE TABLE [dbo].[NombreVia](
[nvEstado] [bit],
[IdNombreVia] [nvarchar](4) NOT NULL,
[nvDescripcion] [nvarchar](50) NOT NULL,
) ON [PRIMARY]