สอบถามการ select ข้อมูลแบบแนวตั้ง 3 ปีย้อนหลังจากปีปัจจุบัน vb.net

        lcBeg = (Year(Date.Now) - 543) - 3
        lcEnd = Year(Date.Now) - 543
        myCon = New MySqlConnection
        myCon.ConnectionString = strConn
        myCon.Open()

        strSql = "select icd10,icdname1,count(icd10) as cicd10 from opddata where left(icd10,1)<>'Z' and icd10<>'O800' and icd10<>''"
        strSql = strSql + " and year(rdate) between ('" & lcBeg & "' ) and ('" & lcEnd & "' )"
        strSql = strSql + " group by icd10,icdname1 order by cicd10 desc limit 0,10"
        myCom = New MySqlCommand(strSql, myCon)
        myDr = myCom.ExecuteReader
        dgvData.Rows.Add()
        dgvData.Item(0, 0).Value = ""
        dgvData.Item(1, 0).Value = ""
        dgvData.Item(2, 0).Value = (Year(Date.Now) - 543) - 3
        dgvData.Item(3, 0).Value = (Year(Date.Now) - 543) - 2
        dgvData.Item(4, 0).Value = (Year(Date.Now) - 543) - 1
        Dim i As Integer = 1
        While myDr.Read()
            dgvData.Rows.Add()
            dgvData.Item(0, i).Value = myDr("icd10")
            dgvData.Item(1, i).Value = myDr("icdname1")
            i += 1
        End While
        myDr.Close()
'ปี2010
        For i = 1 To 10
            strSql = "select count(icd10) as cicd10 from opddata where icd10 = '" & dgvData.Item(0, i).Value & "' and Year(rdate) = '" & dgvData.Item(2, 0).Value & "'"
            myCom = New MySqlCommand(strSql, myCon)
            myDr = myCom.ExecuteReader
            While myDr.Read()
                dgvData.Rows.Add()
                dgvData.Item(2, i).Value = myDr("cicd10")
            End While
            myDr.Close()
        Next