datagrid for loop

[kenichicka]

Pls help me on how to make loop in datagrid to save values that is in datagrid,
because I only know how in listview.

Pls help me.

Here's my code using for loop in LISTVIEW

For lngI = 1 To Listview1.ListItems.Count
    
     sql7 = "UPDATE [CREW02JOINERIMPORT] SET [CREW02JOINERIMPORT].OTHR = " & Listview1.ListItems(lngI).ListSubItems(71) & ", [CREW02JOINERIMPORT].DSA = " & Listview1.ListItems(lngI).ListSubItems(72) & ", [CREW02JOINERIMPORT].DLP = " & Listview1.ListItems(lngI).ListSubItems(73) & ", [CREW02JOINERIMPORT].LSBPRESENT = " & Listview1.ListItems(lngI).ListSubItems(74) & ", [CREW02JOINERIMPORT].LSBNEXT = " & Listview1.ListItems(lngI).ListSubItems(75) & ", [CREW02JOINERIMPORT].LSBNEXTDATE = '" & Listview1.ListItems(lngI).ListSubItems(76) & "', [CREW02JOINERIMPORT].HOMEALLOT1 = " & Listview1.ListItems(lngI).ListSubItems(77) & ", [CREW02JOINERIMPORT].HOMEALLOT2 = " & Listview1.ListItems(lngI).ListSubItems(78) & ", [CREW02JOINERIMPORT].HOMEALLOT1BANK = '" & Listview1.ListItems(lngI).ListSubItems(79) & "',[CREW02JOINERIMPORT].HOMEALLOT2BANK = '" & Listview1.ListItems(lngI).ListSubItems(80) & "',[CREW02JOINERIMPORT].UNIONDUE = " & Listview1.ListItems(lngI).ListSubItems(81) & " " & _
    "WHERE ([CREW02JOINERIMPORT].NO = " & Listview1.ListItems(lngI).ListSubItems(2) & ")"

          
    CONL.Execute  sql7 
Next lngI

Thank you in advance