Sql Update

Hi Experts
I use the following code to change some fields

       CS.Open()
        DA.Fill(DS, "Codes")
    count = grid3.Rows.Count
            For X = 1 To 30 - count
                Dim newCustomersRow As DataRow = DS.Tables("Codes").NewRow()
                newCustomersRow("Prefix") = "M"
                newCustomersRow("a3") = GroupBox.Text
                newCustomersRow("a10") = "@" + GroupBox.Text + "@@"
                newCustomersRow("KeyCode") = KeycodeMax.Text + X
                newCustomersRow("SubKey1") = "0"
                DS.Tables("Codes").Rows.Add(newCustomersRow)
            Next
          dt = DS.Tables("codes")
            dt.DefaultView.RowFilter = "a3 ='" & GroupBox.Text & "'"
            grid1.DataSource = dt
When I use foloowing code to update
     
     CS.Open()
            cmdBuilder = New SqlCommandBuilder(DA)
            DA.Update(DS, "Codes")
            MsgBox("Changes Saved")

It updates all the rows from Grid1 except the first row, where the pointer is.
If I move the pointer in the grid1 to second row then Update,     it updates all the rows.
I would like to update all the rows without moving the pointer in the grid1.
Please help