从数据库中读出的数据（年），能否让同一年只出现一次， ，这是从我的数据库中读出的内容，我的代码如下，请问要怎么样修改:

sql = "select distinct ETime from NewEquOut"   '初始化年，月
    Set rs = TransactSQL(sql)
    If Not rs.EOF Then
       rs.MoveFirst
       While Not rs.EOF
          If Not IsNull(rs.Fields(0)) Then
               Left(rs(0), 4)
               Left(rs(0), 4)
          End If
          rs.MoveNext
        Wend
        rs.Close
     End If
        For i = 1 To 12
         i
         i
        Next i

      


sql = "select distinct ETime from NewEquOut"   '初始化年，月
    Set rs = TransactSQL(sql)
    If Not rs.EOF Then
       rs.MoveFirst
       While Not rs.EOF
                             放在这里解决了，
            

          If Not IsNull(rs.Fields(0)) Then
               Left(rs(0), 4)
               Left(rs(0), 4)
          End If
          rs.MoveNext
        Wend
        rs.Close
     End If
        For i = 1 To 12
         i
         i
        Next i




谢谢班主

确实，我也想到了，
  放在  While Not rs.EOF 前面还是跟以前一样，全部加载了,请问具体放在那个地方.谢谢

还是一样

班主，帮帮忙