[2005] Need help with dataset concept

[Pasvorto]

OK, be nice. I am really having an issue with data updating in ADO.NET. I having been reading Visual Basic 2005 Programmer's Reference; Visual Basic 2005 Cookbook; and Visual Basic 2005 Jumpstart. I have been Googling my arse off. I have been searching this forum. But I still don't get it.

I have a handle on the INSERT and the DELETE in ADO.NET

In VB6 I would do this.

Connect to db at start of program, disconect on exit.

Here is a sample: It does about all the Add/Update code that I would run across.

'IF WE MADE IT HERE, ALL IS OK SO WE CAN APPEND
            '==============================
            rs1 = New ADODB.Recordset
            '===============================
            sql = "SELECT * FROM DATACOLLECTION WHERE [BOGUSDATE] = " & "'" & pdate.Date & "'"
            rs1.Open(sql, Cnxn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText)
            If Not rs1.BOF And Not rs1.EOF Then
                rs1.MoveFirst()
                Do
                    '=============================
                    rsTC = New ADODB.Recordset
                    '=============================
                    If rs1.Fields("shift").Value <> 3 Then
                        sql1 = "SELECT * FROM TIMECARDS WHERE [PAYDATE] = " & "'" & pdate.Date & "'"
                        sql1 = sql1 & " AND [EMPNUM] = " & rs1.Fields("EMPLOYEEID").Value
                    Else
                        sql1 = "SELECT * FROM TIMECARDS WHERE [PAYDATE] = " & "'" & System.DateTime.FromOADate(pdate.ToOADate + 1) & "'"
                        sql1 = sql1 & " AND [EMPNUM] = " & rs1.Fields("EMPLOYEEID").Value
                    End If
                    rsTC.Open(sql1, Cnxn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText)
                    If Not rsTC.BOF And Not rsTC.EOF Then
                        rsTC.MoveFirst()
                        rsTC.Fields("SHIFTDATE").Value = rs1.Fields("bogusdate").Value
                        rsTC.Fields("PAYDATE").Value = rs1.Fields("PAYDATE").Value
                        rsTC.Fields("PAYCODE").Value = "R"
                        rsTC.Fields("dept").Value = rs1.Fields("DEPT1").Value & ""
                        If IsDBNull(rs1.Fields("DTIME1").Value) Then
                            rsTC.Fields("hours").Value = 0
                        Else
                            rsTC.Fields("hours").Value = rs1.Fields("DTIME1").Value
                        End If
                        rsTC.Fields("dept2").Value = rs1.Fields("dept2").Value & ""
                        If IsDBNull(rs1.Fields("DTIME2").Value) Then
                            rsTC.Fields("HOURS2").Value = 0
                        Else
                            rsTC.Fields("HOURS2").Value = rs1.Fields("DTIME2").Value
                        End If
                        rsTC.Fields("DEPT3").Value = rs1.Fields("DEPT3").Value & ""
                        If IsDBNull(rs1.Fields("DTIME3").Value) Then
                            rsTC.Fields("HOURS3").Value = 0
                        Else
                            rsTC.Fields("HOURS3").Value = rs1.Fields("DTIME3").Value
                        End If
                    Else
                        rsTC.AddNew()
                        rsTC.Fields("empnum").Value = rs1.Fields("EMPLOYEEID").Value
                        rsTC.Fields("SHIFTDATE").Value = rs1.Fields("bogusdate").Value
                        rsTC.Fields("PAYDATE").Value = rs1.Fields("PAYDATE").Value
                        rsTC.Fields("PAYCODE").Value = "R"
                        rsTC.Fields("dept").Value = rs1.Fields("DEPT1").Value & ""
                        If IsDBNull(rs1.Fields("DTIME1").Value) Then
                            rsTC.Fields("hours").Value = 0
                        Else
                            rsTC.Fields("hours").Value = rs1.Fields("DTIME1").Value
                        End If
                        rsTC.Fields("dept2").Value = rs1.Fields("dept2").Value & ""
                        If IsDBNull(rs1.Fields("DTIME2").Value) Then
                            rsTC.Fields("HOURS2").Value = 0
                        Else
                            rsTC.Fields("HOURS2").Value = rs1.Fields("DTIME2").Value
                        End If
                        rsTC.Fields("DEPT3").Value = rs1.Fields("DEPT3").Value & ""
                        If IsDBNull(rs1.Fields("DTIME3").Value) Then
                            rsTC.Fields("HOURS3").Value = 0
                        Else
                            rsTC.Fields("HOURS3").Value = rs1.Fields("DTIME3").Value
                        End If
                        'GO TO EMPLOYEE FILE AND GET DATA
                        '===================================
                        rsEmployee = New ADODB.Recordset
                        '===================================
                        sql2 = "SELECT * FROM EMPFILE WHERE [EMPNUM] = " & rs1.Fields("EMPLOYEEID").Value
                        rsEmployee.Open(sql2, CnxnTechniSQL, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText)
                        If Not rsEmployee.BOF And Not rsEmployee.EOF Then
                            rsTC.Fields("shift").Value = rsEmployee.Fields("shift").Value
                            rsTC.Fields("WAGE").Value = rsEmployee.Fields("WAGE").Value
                            rsTC.Fields("JOBWAGE").Value = rsEmployee.Fields("JOBWAGE").Value
                        End If
                        rsEmployee.Close()
                        rsEmployee = Nothing
                        '=======================
                    End If
                    rsTC.Update()
                    rsTC.Close()
                    rsTC = Nothing
                    '=================
                    rs1.MoveNext()
                Loop While Not rs1.EOF

If someone can provide code that performs the same functionality, I should be make all the necessary coding changes to use it as a template. For some reason, it is just not getting past my thick skull.