เพราะอะไร? ถึงไม่สามารถ update ข้อมูลได้

select* from table where ....
 dt = DataTable....
 num = dt.Rows.Count   'จำนวน record ที่ได้

For i = 0 To num - 1
            If i = 0 Then
                  insert into table(.....)  values(....)
                  ExecuteNonQuery()
            Else
                If วันที่(i)= วันที่(i-1) Then
                    'msgbox("test")   ถ้าเอา debug ออกจะ update ได้
                    update
                    ExecuteNonQuery()
                Else
                    insert into table(.....)  values(....)
                    ExecuteNonQuery()               
                 End If
            End If
next