Visual Basic - Cambiar varios registros

Tengo un numero de pedido, en ese pedido se piden varias requisiciones,
yo tengo una tabla pedido (con un numero unico) y tengo una tabla requisiciones
pero quiero cambiar el no. de pedido y automaticamente me busque todas las requisiciones
asignadas a ese pedido y también le cambie el no. de pedido ahí pero solo se lo cambia al primer
registro que encuentra, por favor pueden ayudarme. mando el codigo.

SQL2 = "SELECT * FROM Requisicion WHERE [NoPedido] =" + " '" + NoPedido.Text + "'"
Set RS2 = MyDB2.OpenRecordset(SQL2)
If RS2.RecordCount > 0 Then
Set Data5.Recordset = RS2
NumArticulos.Text = Data5.Recordset.RecordCount
PEDIDO = Data5.Recordset.RecordCount
Else
Set Data5.Recordset = RS2
NumArticulos.Text = Data5.Recordset.RecordCount
PEDIDO = Data5.Recordset.RecordCount
End If


If Not (NoPedido.Text = "") Then
'' aqui cambio de la tabla de Pedidios.
Data4.Recordset.Edit
Data4.Recordset.Fields("NoPedido") = NoPedido.Text
Data4.Recordset.Update
If Not RS2.NoMatch Then
''aqui cambio de la tabla requisiciones
For x = 1 To PEDIDO
RS2.Edit
RS2("NoPedido") = NoPedido.Text
RS2.Update
Next x
End If
End If