Obtener datos desde un datagridview

[EpicentroSupersonico]

Hola, les cuento , tengo este codigo que me muestra todos los Analisis de una empresa en Comun,

tengo una tabla que se llama Muestra que enlaza a las demas.. (subo que enlaza solamente a dos Organolepticos, y materiasEstrañas

Muestra


Organolepticos


MateriasExtrañas


al momento de cargar los datos me muestra algo mas o menos asi ...




ahora lo que necesito es mandar a unos label un porcentaje de cumplimiento, por ejemplo que todas son normales tener un 100% si tengo 3 normales y 7 Anormales tener un 30% de cumplimiento..


algo asi como esto..


para rellenar todo tengo este codigo que encontre en internet y modifique y que me sirve de lo mas bien...

Código:

Option Explicit On
Option Strict On

' Espacio   
Imports System.Data.SqlClient

Public Class Informe3
    ' Cadena de conexión   
    Private Const cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Buho1.mdf;Integrated Security=True;User Instance=True"



    Private Sub data1( _
    ByVal data As DataGridView, _
    ByVal sql As String)

        ' nueva conexión indicando al SqlConnection la cadena de conexión   
        Dim cn As New SqlConnection(cs)

        Try

            ' Abrir la conexión a Sql   
            cn.Open()

            ' Pasar la consulta sql y la conexión al Sql Command    
            Dim cmd As New SqlCommand(sql, cn)

            ' Inicializar un nuevo SqlDataAdapter    
            Dim da As New SqlDataAdapter(cmd)

            'Crear y Llenar un Dataset   
            Dim ds As New DataSet
            da.Fill(ds)

            ' asignar el DataSource al combobox   
            data.DataSource = ds.Tables(0)

            '' Asignar el campo a la propiedad DisplayMember del combo    
            ' data.DisplayMember = ds.Tables(0).Columns(0).Caption.ToString

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
                            "error", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Select Case ComboBox1.Text
            Case "Foraneos/Platos Preparados"
                'enviar el control ComboBox y la consulta   
                data1(data, "SELECT     Empresa.Nombre as [Nombre Empresa], " & _
         "Muestra.Protocolo," & _
         "Muestra.Fecha as [Fecha]," & _
         "Muestra.TipoExamen as [Tipo Muestra], " & _
         "Muestra.Producto, " & _
         "Muestra.Descripcion, " & _
         "Organolepticos.Resultado AS [Organolepticos]," & _
        " materiasExtrañas.Resultado as [MateriasExtrañas]," & _
        "OtrosAnalisis.Resultado as [OtrosAnalisis] " & _
        "FROM     Empresa INNER JOIN " & _
                        " Muestra ON Muestra.Rol = Empresa.Rol INNER JOIN " & _
                        " Organolepticos ON Muestra.Protocolo = Organolepticos.NumProtocolo INNER JOIN " & _
                        " MateriaExtrañas. NumProtocolo On Muestra.Protocolo = Rotulacion.NumProtocolo 

INNER JOIN " & _
                        " OtrosAnalisis on Muestra.Protocolo = MateriaExtrañas. NumProtocolo " & _
        " WHERE  Muestra.Rol = " & My.Forms.Informe1.Rol & "")

     
  

   End Class

ahi cualquier cosa de como rrecorrer el dat ay qu eme de los datos seria de mucha ayuda..


gracias