两个问题
一、  原程序是这样的
 If Option3 = True Then
         If = "" Then
               MsgBox "请选择日期!", vbOKOnly + vbExclamation, "提示"
         Else
           fromdate = & "-" & & "-1"
           fromdate = Format( & "-" & & "-1", "yyyy-mm-dd")
           todate = & "-" & & "-1"
           todate = Format(todate, "yyyy-mm-dd")
           sql = "select * from NewEquOut where ETime between #" & fromdate & "# and # " & todate & "#"
           FrmRe_NewEquO.createlist (sql)
           FrmRe_NewEquO.Show
           FrmRe_NewEquO.ZOrder 0
           Unload Me
        End If

这个语句，存在一个毛病，就是只会查本月1号至下月1号的数据，我把
todate = & "-" & & "-1" 这句改成 :"-31"，
后，有些月份在查时总是报错，我总结了一下，无能是从那个月开始，只要是单月（1、3、5、7、9、11）结束就会报错，双月（2，4、6、8、12）这些月份时能正常查询

我希望在查询时能从1号开始，到31号结束，而不是原代码的1号开始，到下个月1号结束，这样就跨了两个月了

二、年的下拉菜单里总是把数据表里面的所有年份显示出来了，有什么办法让重复的不显示出来

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
在****的地方加一个判断语句，如果出现重复的，不将数据添加到下拉菜单。请问要怎么样写这个代码

谢谢大家。

班主出招帮忙

请问班主，第二个问题能解决吗