如标题。最近想写一个程序，可以自己读取所在电脑的OUTLOOK的日历排程安排，并同步写到程序中。主要作为内部企业排程共享用。不知道怎样写或有什么好的思路，请大家帮忙出个主意或有好的思路和其他办法。谢谢！

这段是日期时间显示看能用上不:
Private Sub Timer1_Timer()
Label1.Caption = Chr$(13) + Chr$(10) + Date$ '日期
Label2.Caption = Time$ + Chr$(13) + Chr$(10)'时间
If Label5.Caption = Time$ Then GoTo 51
Exit Sub       ' 结束以上程序
51: Print Tab(10); "起床啦。。。"
End Sub

位高权重，事多怕忘记，怕冲突。
用数据库添加记录，然后用查询日期显示结果，条件是：日期>=date+7,‘显示7天的行程。

谢谢大家积极回复。

谢谢！
但我要的不是自己输入再添加到数据库。 而是需要程序读取OUTLOOK中的日历排程信息，然后自动由程序写入到数据库中。 公司人员通过此程序共享自己的日程安排，有权限的人都可以看到。

现在是我不明白怎么从OUTLOOK中同步日历排程到程序中。请各位多多指点，谢谢！