试试
dr = DataTables("年份期间表").Find(" substring(年份期间,1,4) <= '" & YearStr & "' AND substring(年份期间,6,4) >= '" & YearStr & "'")