كيف يمكن تحديث أكثر من Row ؟

Try
Dim UCmd As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\a.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim UAdp As New OleDbDataAdapter(SQLstr, Conn)
UCmd.Connection = Conn
UCmd.CommandType = CommandType.Text
For I As Integer = 0 To DataGridView1.RowCount - 1
If Not System.Convert.IsDBNull(Me.DataGridView1("debit", I).Value) Then
If DataGridView1("debit", I).Value > 0 Then
UCmd.CommandText = "update accounts SET debit = " & Me.DataGridView1("debit", I).Value & " WHERE account_id = '" & Me.DataGridView1("account_debit", I).Value & "' "
End If
End If
Next
Conn.Open()
UCmd.ExecuteNonQuery()
DS.Clear()
UAdp.Fill(DS, "accounts")
UCmd.Dispose()
Conn.Close()
MsgBox("تمت عملية التعديل والحفظ في قاعدة البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try

Try
Dim U2Cmd As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\a.mdb"
Dim Conn2 As New OleDbConnection(ConStr)
Dim U2Adp As New OleDbDataAdapter(SQLstr, Conn2)
U2Cmd.Connection = Conn2
U2Cmd.CommandType = CommandType.Text
For I As Integer = 0 To DataGridView1.RowCount - 1
If Not System.Convert.IsDBNull(Me.DataGridView1("credit", I).Value) Then
If DataGridView1("credit", I).Value > 0 Then
U2Cmd.CommandText = "update accounts SET credit = " & Me.DataGridView1("credit", I).Value & " WHERE account_id = '" & Me.DataGridView1("account_credit", I).Value & "' "
End If
End If
Next
Conn2.Open()
U2Cmd.ExecuteNonQuery()
DS.Clear()
U2Adp.Fill(DS, "accounts")
U2Cmd.Dispose()
Conn2.Close()
MsgBox("تمت عملية التعديل والحفظ في قاعدة البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try

a.rar