长时间数据录入时隔天零点自动停止录入的问题如何解决？

我想做个在线监测系统，需要实时将机器的振动量和温度等录入数据库，现在的问题是到第二天零点自动停止录入了，有什么办法可以解决吗？代码如下：
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB\2011-10.mdb;Persist Security Info=False"
  conn.Open ConnStr
  '打开表的记录集
  rs.CursorLocation = adUseServer
  rs.Open "振动量", conn, adOpenDynamic, adLockPessimistic
  rs.MoveFirst
 '添加一个空记录
  Do
  DateStr0 = Format(Now, "yyyy-mm-dd hh:mm:ss") & "." & Right(Format(Timer, "0.000 "), 4)
  '添加一个空记录
  rs.AddNew
  '给各字段赋值
  rs("时间") = DateStr0
  For i = 2 To 3
  num = Val(i - 1)
  T = Second(Now)
  S = 10 * Sin(6 * T) - 5 * Cos(6 * T)
  rs("振动量" & num & "") = S
  rs("角度" & num & "") = 6 * T
  Next
  '更新表记录集
  rs.Update
  PauseTime = 0.5
  Start = Timer
  Do While Timer < Start + PauseTime
  DoEvents
  Loop
  Loop

把录入代码放到Timer中，定时读取数据，再录入数据库即可，这样不管什么时候都能录入。不会有问题。

dim aa as boolean
aa=false
do while aa

loop

加这个试试