ช่วยหน่อยค่ะ มีปัญหาเกี่ยวกับ combobox น่ะคะ สมมติว่าใน combobox

Public Class Form1
    Dim str1 As String
    Dim Nowdate As Date
    Dim str2 As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '' get วันที่ปัจจุบัน จาก server
        sqlcon(1)
        sb.Remove(0, sb.Length)
        sb.Append(" SELECT GETDATE() as Gdate")
        sql = sb.ToString
        pro = Showquerysql(sql, "dtGetDate")

        Nowdate = CDate(pro.Rows(0).Item("Gdate")).ToString("dd/MM/yyyy")

        '' ชุดคำสั่ง query ข้อมูล เพื่อมาโชว์ใน datagridview
        sqlcon(1)
        sb.Remove(0, sb.Length)
        sb.Append("Select SalesSummaryID,SalesDate From SalesSummary")
        sb.Append(" Where (SalesSummaryID = 'SN09000001')")
        sql = sb.ToString()

        pro = Showquerysql(sql, "dtPrd")
        '' นำข้อมูลยัดใส่ ใน datagridview
        DataGridView1.DataSource = pro

        '' วนลูปเพื่อใส่สี ใน rows ที่สินค้าค้าใกล้หมดอายุ
        Dim i As Integer
        For i = 0 To DataGridView1.Rows.Count - 1
            str1 = DataGridView1.Rows(i).Cells("col2").Value
            If str1 <> "" Then
                '' นำวันที่ปัจจุบัน - กับวันที่ใน datagridview เพื่อหาจำนวนวัน
                str2 = DateDiff(DateInterval.Day, Nowdate, CDate(str1)) + 1
                '' ถ้าจำนวนวันที่ได้ น้อยกว่า 7 ก็ให้ใส่สี Green 
                If CInt(str2) < 7 Then
                    Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Green
                    DataGridView1.Rows(0).Selected = False
                End If
            End If
        Next
    End Sub