Visual Basic.NET - foto en datagridview

Dim cn As SqlConnection

        Dim adaptador As SqlDataAdapter

        Dim dt As DataTable

        If txtclase.Text = "" Then

            MsgBox("INGRESAR UNA CLASE")

            txtclase.Text = ""

            txtclase.Focus()

        Else

            Try

                'llena el data grib segun la selecccion de los estatus disponibles

                cn = New SqlConnection(CADENACONEXION2)

                adaptador = New SqlDataAdapter("select codigo,clave,ubicacioncompleta,descripcion,clase,estatus,rutafoto from buscarcosar where (clase = '" & txtclase.Text & "')", cn)

                dt = New DataTable

                adaptador.Fill(dt)

                DataGridView1.DataSource = dt

            Catch ex As Exception

                MessageBox.Show("error al llenar la grilla" + ex.ToString)

            End Try

'QUIERO LLENAR LA COLUMNA FOTO DE TODOS LOS RESULTADOS QUE ME TARE LA CONSULTA SQL 

            DataGridView1.Item(1, 1).Value = New Bitmap(Image.FromFile(DataGridView1.CurrentRow.Cells("rutafoto").Value.ToString()))

            DataGridView1.Item(1, 2).Value = New Bitmap(Image.FromFile(DataGridView1.CurrentRow.Cells("rutafoto").Value.ToString()))

        End If

    End Sub

':::Creamos una variable para asignar la ruta donde se almacenan las imagenes

Dim ruta As String = "C:\Tutoriales\img\"

':::Creamos otra variable para asignar el nombre de la imagen que esta en un control DatagridView

Dim imagen As String = DataGridView.CurrentRow.Cells("imagen").Value

':::Indicamos al control PictureBox mediante la propiedad ImageLocation donde se encuentra la imagen

PictureBox.ImageLocation = ruta + imagen

For i As Integer = 0 To n

    'DataGridView1.Item(1, i).Value = New Bitmap(Image.FromFile(DataGridView1.CurrentRow.Cells("rutafoto").Value.ToString()))

    i = i + 1

Next

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    Dim n As Int16

    Dim cn As SqlConnection

    Dim adaptador As SqlDataAdapter

    Dim dt As DataTable

    If txtclase.Text = "" Then

        MsgBox("INGRESAR UNA CLASE")

        txtclase.Text = ""

        txtclase.Focus()

    Else

        Try

            'llena el data grib segun la selecccion de los estatus disponibles

            cn = New SqlConnection(CADENACONEXION2)

            adaptador = New SqlDataAdapter("select codigo,clave,ubicacioncompleta,descripcion,clase,estatus,rutafoto from tutabla where (clase = '" & txtclase.Text & "')", cn)

            dt = New DataTable

            adaptador.Fill(dt)

            DataGridView1.DataSource = dt

            'para contar cuantos registros encontro la consulta sql

            n = dt.Rows.Count

            Dim i As Integer

            For i = 0 To n - 1

'DataGridView1.Item(1, i).Value (esla columna de imagen del datagridview

'DataGridView1.Item(8, i) (es la columna donde esta la ruta en el datagridview)

                DataGridView1.Item(1, i).Value = New Bitmap(Image.FromFile(DataGridView1.Item(8, i).Value.ToString()))

            Next

            i = i + 1

        Catch ex As Exception

            MessageBox.Show("error al llenar la grilla" + ex.ToString)

        End Try

    End If

End Sub

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

    ':::Ruta donde tengo la imagen

    Dim imagen As Image = Image.FromFile("C:\Tutoriales\imagen.jpg")

    ':::Creamos una variable de tipo MemoryStram

    Dim MS As New MemoryStream

    ':::Guardamos en la variable MS el contenido de la imagen

    imagen.Save(MS, imagen.RawFormat)

    ':::Pasamos a Byte nuestra imagen

    Dim Imagenes() As Byte = MS.GetBuffer

    ':::Agrego una nueva fila de forma manual

    DataGridView1.Rows.Add("1", "Imagen", Imagenes)

    ':::Ahora paso la imagen del DatagridView a un control PictureBox para verificar el resultado

    PictureBox1.Image = DataGridView1.CurrentRow.Cells("imagen").FormattedValue

End Sub

':::Funcion para crear el Thumbnail o Miniatura de la imagen

Function MycallBack() As Boolean

   Return False

End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    ':::Ruta donde tengo la imagen

    Dim imagen As Image = Image.FromFile("C:\Tutoriales\imagen.jpg")

    ':::Llamado de la funcion para crear el Thumbnail o Miniatura de la imagen

    Dim CallBack As New GetThumbnailImageAbort(AddressOf MycallBack)

    ':::Agrego una nueva fila de forma manual, establesco la imagen en la columna imagen y le doy un tamaño especifico

    DataGridView1.Rows.Add("1", "Imagen", imagen.GetThumbnailImage(50, 50, CallBack, IntPtr.Zero))

    ':::Ahora paso la imagen del DatagridView a un control PictureBox para verificar el resultado

    PictureBox1.Image = DataGridView1.CurrentRow.Cells("imagen").FormattedValue

End Sub