Llenar grilla campo por campo

[Lerolero]

Hola,
Estoy realizando una aplicación en la que el form se debe actualizar, cada vez que haya un cambio en la base de datos. Con base en un ejemplo lo logre.

Lo que quiero es que cuando se traigan los datos, se puedan evaluar y según eso muestre una imagen en la grilla. Algo parecido a lo que esta en comentario

Con el codigo actual, trae todos los datos de una y llena la grilla, y no se pueden evaluar los datos uno a uno.

Código vb:

Private Sub ObtenerDatos()
        'Se vacia la información del dataset
        'ya que solo hay uno para controlar los datos
        ds.Clear()
 
        'Se asegura que el objeto de comando no tiene ya
        'Un objeto de notificación asociado.
        command.Notification = Nothing
 
        'Se crea y enlaza el objeto SqlDependency
        'Para el objeto de comando.
        Dim dependency As New SqlDependency(command)
        AddHandler dependency.OnChange, AddressOf dependency_OnChange
        Using adapter As New SqlDataAdapter(command)
 
 
            'If dgv_pruebasvehiculo.Rows.Count > 0 Then
            '    dgv_pruebasvehiculo.Rows.Clear() 'limpiar el datagridview
            'End If
            'Try
            '    'Se ejecuta la consulta
            '    ADONet_Query(ds, GetSQL())
 
 
            '    For i = 0 To ds.Tables(0).Rows.Count - 1 Step 1
 
 
            '        'Asignacion de campos
            '        If ds.Tables(0).Rows(0).Item(1).ToString = "S" Then
            '            G_FRENOS = "REALIZAR PRUEBA"
            '        Else
            '            If ds.Tables(0).Rows(0).Item(1).ToString = "N" Then
            '                G_FRENOS = "NO APLICA"
            '            Else
            '                If ds.Tables(0).Rows(0).Item(1).ToString = "E" Then
            '                    G_FRENOS = "EJECUTADO"
            '                End If
            '            End If
            '        End If
 
            '        dgv_pruebasvehiculo.Rows.Add(G_FRENOS)
            '    Next
            'Catch ex As Exception
            '    MsgBox(ex.Message)
            'End Try
 
            adapter.Fill(ds, nombreTabla)
            Me.DataGridView1.DataSource = ds
            Me.DataGridView1.DataMember = nombreTabla
        End Using
    End Sub