For Save Images:

 Private Sub Save()
        Dim strConn, strQuery As String
        Dim cmd As SqlCommand
        Dim img As Image
        Dim imagedata As Byte()
        Dim imgFormat As Imaging.ImageFormat
        Dim myParameter As SqlParameter
        Try
            img = Image.FromFile(Me.txtImage.Text)
            imgFormat = img.RawFormat

            imagedata = ConvertImageToByteArray(img, imgFormat)

            strQuery = "Insert into TBL_STUDENT
(STUD_NAME,SUBJECT,NUMBER,IMAGES) values ('" & txtName.Text
& "','" & txtSubject.Text & "'," & txtNumber.Text & ",@Image)"
            strConn = //Your Connection String
            conn = New SqlConnection(strConn)
            cmd = New SqlCommand(strQuery, conn)

            myParameter = New SqlParameter("@Image",
SqlDbType.Image, imagedata.Length)
            myParameter.Value = imagedata
            cmd.Parameters.Add(myParameter)


            conn.Open()
            cmd.ExecuteNonQuery()
 
            MsgBox("Saved Successfully", MsgBoxStyle.OkOnly)
        Catch ex As Exception

        End Try
    End Sub

  Private Shared Function ConvertImageToByteArray(ByVal
imageToConvert As System.Drawing.Image, ByVal formatOfImage
As Imaging.ImageFormat) As Byte()
        Dim Ret As Byte()

        Try
            Using ms As New MemoryStream()
                imageToConvert.Save(ms, formatOfImage)
                Ret = ms.ToArray()
            End Using
        Catch generatedExceptionName As Exception
            Throw
        End Try

        Return Ret
    End Function

For Retrieve:

 Private Sub RetrieveImages()
        Dim strConn As String
        Dim cmd As SqlCommand
        Dim da As SqlDataAdapter

        Try
            strConn = //Connection string
            conn = New SqlConnection(strConn)
            cmd = New SqlCommand("Select * from
TBL_STUDENT", conn)
            da = New SqlDataAdapter(cmd)
            ds = New DataSet
            da.Fill(ds)
        Catch ex As Exception

        End Try
    End Sub