sql = "SELECT DATEPART("yyyy",dates) FROM summary WHERE plants = '" & yieldsummary.cbPlant.Text & "'"