关于数据插值与更新的问题，求大神

更新数据库，假如某时刻缺失，数据插值（insert into），如果某时刻数据有的话，进行覆盖（update）。目前某时刻数据存在的时候，update一次，输出：线程 '<无名称>' (0x3d60) 已退出，返回值为 0 (0x0)。就无法执行下去，求大神
 For itime = 0 To 52  
 On Error GoTo err


                     = "insert into MS_PJF (YYYYMMDDHH,Wind) values('" + StartTime + "', '" CStr(Int(Wd(itime))) "')"
                    cmd.ExecuteNonQuery()
                    GoTo enderr


err:
                     = "update MS_PJF set Wind='" + CStr(Int(Wd(itime)))
                     = + " where YYYYMMDDHH='" + StartTime
                    cmd.ExecuteNonQuery()
enderr:
Next