[salah525]

عملت كود للتعديل يعمل الحمد لله 
ولكنه يحدث السجل الاول فقط 
فكيف اضع فيه الشرط لتحديث السجل المحدد فقط

If MsgBox("هل تريد تحديث بيانات اسرة" & posNm, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
                openCON()
                da = New OleDb.OleDbDataAdapter("Select * FROM tbl_Show_Familys ", Con)
                da.Fill(dt_tbl_Show_Familys)
                Con.Close()
                Dim cb As New OleDbCommandBuilder(da)

                dt_tbl_Show_Familys.Rows(Mov).Item(0) = ID_R.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(2) = Qawmi.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(3) = Date_Birthday.Value.ToShortDateString
                dt_tbl_Show_Familys.Rows(Mov).Item(4) = Age.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(5) = Gender.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(6) = state.SelectedItem
                dt_tbl_Show_Familys.Rows(Mov).Item(7) = Number_afrad.Text