How to add image for show status on datagridview ขอคำแนะนำหน่อยนะครับ

Imports System.Text
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Windows.Forms


ส่วน Load_Form

    Private Sub frmMembersetting_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dgvListmember.Rows.Clear()

        Dim colImg As DataGridViewImageColumn = New DataGridViewImageColumn()
        colImg.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        colImg.Name = "imgstatus"
        colImg.HeaderText = "Active"
        dgvListmember.Columns.Add(colImg)

        btnSearch_Click(sender, e)

    End Sub

Dim sql As String

        '---------------------------------------------------------------------
        sql = "SELECT UDT.USE_code, UDT.USE_username, UDT.USE_nname, "
        sql &= "UDT.USE_fname, UDT.USE_lname,UDT.USE_Telno, UDT.USE_email, LOU.Ustatus "
        sql &= "FROM UserDetail UDT "
        sql &= "INNER JOIN Login_out LOU "
        sql &= "ON UDT.USE_ID = LOU.USE_ID "
        sql &= "WHERE UDT.USE_code LIKE '%" & srcCode & "%' "
        sql &= "AND UDT.USE_fname LIKE '%" & srcFname & "%' "
        sql &= "AND UDT.USE_lname LIKE '%" & srcLname & "%' "
        sql &= "AND UDT.USE_nname LIKE '%" & srcNname & "%' "
        sql &= "Order by UDT.USE_code ASC "

        conn.Open()
        ''commanddata
        Dim ad As New SqlDataAdapter(sql, conn)
        Dim dt As New DataSet
        ad.Fill(dt, "Advise")
        'close connect database
        conn.Close()

        Dim dataDt As New DataTable
        Dim dataDr As DataRow

        pic1 = My.Resources.online_icon
        pic2 = My.Resources.online_red_icon

        dataDt.Clear()

        dataDt.Columns.Add("No.")
        dataDt.Columns.Add("Active")
        dataDt.Columns.Add("User Code")
        dataDt.Columns.Add("User Account")
        dataDt.Columns.Add("Nickname")
        dataDt.Columns.Add("First Name")
        dataDt.Columns.Add("Last Name")
        dataDt.Columns.Add("Tel No.")
        dataDt.Columns.Add("E-Mail")

        If dt.Tables(0).Rows.Count > 0 Then
            ' Dim rows As Object() = New Object() {pic1}
            For i As Integer = 0 To dt.Tables(0).Rows.Count - 1
                '---this code is add new row

                dataDr = dataDt.NewRow

                dataDr("No.") = Format(i + 1)

                If CStr(dt.Tables(0).Rows(i)("Ustatus").ToString) = "0" Then

                    dataDr("Active") = "OFF"
'ต้องการให้แสดง รูปภาพ offline.png
                Else
                    dataDr("Active") = "ON"
'ต้องการให้แสดง รูปภาพ online.png 
                End If

                dataDr("User Code") = dt.Tables(0).Rows(i)("USE_code").ToString
                dataDr("User Account") = dt.Tables(0).Rows(i)("USE_username").ToString
                dataDr("Nickname") = dt.Tables(0).Rows(i)("USE_nname").ToString
                dataDr("First Name") = dt.Tables(0).Rows(i)("USE_fname").ToString
                dataDr("Last Name") = dt.Tables(0).Rows(i)("USE_lname").ToString
                dataDr("Tel No.") = dt.Tables(0).Rows(i)("USE_Telno").ToString
                dataDr("E-Mail") = dt.Tables(0).Rows(i)("USE_email").ToString

                dataDt.Rows.Add(dataDr)

            Next

            count = dt.Tables(0).Rows.Count
            lblItem.Text = count

        Else
            lblItem.Text = "0"

        End If

        ''---Show data on datagrid
        dgvListmember.DataSource = dataDt

        'DataGridsetup()

        'clear value 
        dt = Nothing
        ad = Nothing