Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlstr2
Dim i
i = 0
Do While i < Datacnn3.RecordCount
sqlstr2 = " update supplierbmilk set sbmilkmorn='" & CType(Datagrid1.Items(i).FindControl("textbox4"), TextBox).Text & "',sbmilknoon='" & CType(Datagrid1.Items(i).FindControl("textbox5"), TextBox).Text & "',sbmilknigh='" & CType(Datagrid1.Items(i).FindControl("textbox6"), TextBox).Text & "' where sbmilksupplierb='" & CType(Datagrid1.Items(i).FindControl("textbox1"), TextBox).Text & "' "
If Datacnn4.State = ADODB.ObjectStateEnum.adStateOpen Then Datacnn4.Close()
Datacnn4.Open(sqlstr2, Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
i = i + 1
Loop
Dim oItem As DataGridItem
For Each oItem In DataGrid1.Items
If oItem.ItemIndex = e.Item.ItemIndex Then
For i = 0 To e.Item.Cells.Count - 1
Dim rbl1 As RadioButtonList
rbl1 = e.Item.FindControl("rbl1")