急求：数据库更新问题！！！！

我作的程序是一个串口接受并储存的，可总是当接收到了第二个数据时才写入数据库第一数据，比如接受到第一组数据为25  30  35  40  当接受到第二组数据 30  35  40  45 时第一组数据才写入数据库。因为串口是不断收数的，所以我作了判断写入，是不是问题出在这这啊？？源码如下
If a3 > 0 And a3 <> a0 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("时间") = Now()
Adodc1.Recordset.Fields("数据1") = a1
Adodc1.Recordset.Fields("数据2") = a2
Adodc1.Recordset.Fields("数据3") = a3
                             
a0 = a3
End If