下面这几句的冒号是不是一个意思
还有是什么意思
sTemp = mid(sLine, 2, 2): rRiqi = mid(sLine, 5): timu = "": tishu = tishu + 1
MyText.close: zuoye = "现在时间是"& now() &"已过了交作业的截止日期。"
sReadFromDB = rs(0): sReadFromDB = replace(sReadFromDB, "<BR>", vbCrLf)
Set rs = Nothing: Set dbc = Nothing

楼主的程序与下面的相当，冒号个人认为是一个意思
sTemp = mid(sLine, 2, 2)
rRiqi = mid(sLine, 5)
timu = ""
tishu = tishu + 1
MyText.close
zuoye = "现在时间是"& now() &"已过了交作业的截止日期。"
sReadFromDB = rs(0)
sReadFromDB = replace(sReadFromDB, "<BR>", vbCrLf)
Set rs = Nothing
Set dbc = Nothing

非常感谢