Gravando dados

Abaixo eu carrego os TextBox com os dados da tabela, ate ai blz carreguei o documento 2633 suponhamos, esse documento tem 10 items os quais vou visualizando atraves dos botoes de navegação. O problema é que preciso gravar esse documento juntamente com seus items em outra tabela, consigo fazer isso item a item, mas como gravar de uma vez o documento 2633 com todos os seus items? Cada item tem seu ID.

Sub AtualizarItems()

Dim Sql As String

Sql = "SELECT [OF],Req,Desc,Posicao,Quant,Csobra,Disp,Origem,Destino,Prazo,Obra,Fabrica,ID,(SELECT COUNT(ID) FROM Movimento) As Total FROM Movimento WHERE LM Like '%" & Tbox.text & "%'"
Set RsItem = BANCO.Execute(Sql)
If IsNull(RsItem("Total")) Then Me.Lb_ContReg.Caption = 0 Else Me.Lb_ContReg.Caption = RsItem("Total")
If RsItem.EOF And RsItem.BOF Then
    Else
    RsItem.MoveMax
    RsItem.MoveMin
     LB_Item.Caption = RsItem!ID
     TxtPos.text = Nnull(RsItem!Posicao)
     ComboDisp.text = Nnull(RsItem!Disp)
     TxtQT.text = Nnull(RsItem!Quant)
     TxtDesc.text = Nnull(RsItem!Desc)
     ComboOrigem.text = Nnull(RsItem!Origem)
     ComboDestino.text = Nnull(RsItem!Destino)

     If RsItem!OF = "" Then
     TxtOF.text = Nnull(RsItem!Req)
     ElseIf RsItem!Req = "" Then
     TxtOF.text = Nnull(RsItem!OF)
     ElseIf RsItem!Req = "" And RsItem!OF = "" Then
     TxtOF.text = "-"
     End If
     TxtSobra.text = Nnull(RsItem!csobra)
     TxtObra.text = Nnull(RsItem!Obra)
     TxtFab.text = Nnull(RsItem!Fabrica)
     LB_Item.Caption = RsItem!ID
     RsItem.MoveNext


End If

End Sub