[AccessD] Why is recordset not updating?

The table is not getting populated using the following code. I think
addnew and update are messed up somewhere.

 

myds.AddNew

        myds.Fields(0) = myds2.Fields(0)

        myds.Fields(1) = ProdDate

        myds.Fields(2) = myds2.Fields(2)

        If RecordCounter = 1 Then

            myds.AddNew

            myds.Fields(3) = myds2.Fields(2) / 365.25

         Else

            Do Until PriorCumTotInj < myds1.Fields(2)

                FluidType = myds1.Fields(5)

                myds1.MoveNext

            Loop

            myds1.MovePrevious

            If FluidType = "CO2" Then

                myds.Fields(3) = myds1.Fields(2) + PriorCumTotInj

            Else

                myds.Fields(3) = myds1.Fields(3) + PriorCumTotInj

            End If

        End If

        ProdDate = ProdDate + 1

        myds.Update

 

Chester Kaup

Engineering Technician

Kinder Morgan CO2 Company, LLP

Office (432) 688-3797

 

No trees were killed in the sending of this message. However a large
number of electrons were terribly inconvenienced.

FAX (432) 688-3799