VB中如何让每个月的20号将所有数据清0

这个就要你每月的20日一定要开机。

在工程的启动过程中，
if day（now）=20 then
'如果你的数据是数据库，就访问数据库修改
'如果你的数据保存在文件中，就访问数据文件
endif

Private Sub Form_Load()
If Day(Date) = 20 Then MsgBox "今天20号"
清理数据
End Sub