Ajuda neste codigo

[jntrindade]

boa note, sou novato no forum gostaria que me ajudassem no codigo abaixo, o que ta faltando e tranferir os dados do subformulario orcamento para o subformulario pedido. Desde já agradeço pela atençaõ. fico no aguardo.

Dim db1 As Database, db2 As Database, rs1 As Recordset, rs2 As Recordset, i As Long

If MsgBox("Confirma a venda?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set db2 = CurrentDb

Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)

Set rs2 = db2.OpenRecordset("tblpedido", dbOpenTable)

rs1.AddNew

rs1("Datavenda") = Me.Datavenda

rs1("hora") = Me.hora

rs1("cod_vendedor") = Me.cod_vendedor

rs1("vendedor") = Me.vendedor

rs1("valor") = Me.valor

rs1.Update

rs1.Close

Set rs1 = Nothing

Set db1 = Nothing

For i = 0 To Me.codvenda

rs2.AddNew

rs2("codvenda") = DMax("codvenda", "tblvenda")

rs2("cod_produto") = Forms!frmorcamento!frmsuborcamento![cod_produto]

rs2("produto") = Forms!frmorcamento!frmsuborcamento![produto]

rs2("precounit") = Forms!frmorcamento!frmsuborcamento![precounit]

rs2("quant") = Forms!frmorcamento!frmsuborcamento![quant]

rs2("desc") = Forms!frmorcamento!frmsuborcamento![desc]

rs2("total") = Forms!frmorcamento!frmsuborcamento![total]

rs2("Iditem") = Forms!frmorcamento!frmsuborcamento![codpedido]

rs2.Update

Next i

rs2.Close

Set rs2 = Nothing

Set db2 = Nothing

MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

DoCmd.OpenForm "frmindica", acNormal

Exit Sub

End If

[MrMALJ]

Fera utilize o comando SQL Insert Into para inserir dados na tabela, caso não consiga, sugiro que post seu bd para que alguém possa fazer isso para você e lhe devolver.