求求你们了....帮我吧555555555

Combo1(2).ListIndex = 0
mrc.Close
Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年级第一学期"
Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年级第二学期"
Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年级第一学期"
Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年级第二学期"
Combo1(3).AddItem Val(Format(Date, "yyyy")) + 1 & "---" & Val(Format(Date, "yyyy")) + 2 & "年级第一学期"
Combo1(3).AddItem Val(Format(Date, "yyyy")) + 1 & "---" & Val(Format(Date, "yyyy")) + 2 & "年级第二学期"
If Val(Format(Date, "mm")) > 8 Then
Combo1(3).ListIndex = 2
Else
Combo1(3).

Combo1(2).ListIndex = 0 '定位到Combo1(2)的第一个项目
mrc.Close '关闭当前数据库
Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年级第一学期" '在Combo1(3)中添加内容为“[去年]---[今年]年级第一学期”的新项目
Combo1(3).AddItem Val(Format(Date, "yyyy")) - 1 & "---" & Val(Format(Date, "yyyy")) & "年级第二学期" '在Combo1(3)中添加内容为“[去年]---[今年]年级第二学期”的新项目
Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年级第一学期" '在Combo1(3)中添加内容为“[今年]---[明年]年级第一学期”的新项目
Combo1(3).AddItem Format(Date, "yyyy") & "---" & Val(Format(Date, "yyyy")) + 1 & "年级第二学期" '在Combo1(3)中添加内容为“[今年]---[明年]年级第二学期”的新项目
Combo1(3).AddItem Val(Format(Date, "yyyy")) + 1 & "---" & Val(Format(Date, "yyyy")) + 2 & "年级第一学期" '在Combo1(3)中添加内容为“[明年]---[后年]年级第一学期”的新项目