[Resolvido]Adicionar registros a uma lista/subform através de campo texto.

Boa noite a todos e todas.
Preciso fazer um formulario de vendas e itens de vendas onde os itens de venda não sejam digitados diretamente no subformuloario ou lista. Os itens seriam digitados em campos "textos" e ao clicar em um botão "Salvar/Adicionar" os dados seriam adicionados aos itens de venda.
Alguém sabe onde eu encontro um exemplo desses ou sabe como fazer?

Sds.

FLAVIO

Boa tarde Flavio.

Código:

Private Sub SUA LISTA_DblClick(Cancel As Integer)
Set DB = CurrentDb
sSQL = "INSERT INTO tblVendas"
    
    'CAMPOS DA TABELA----------------------------------------
    sSQL = sSQL & "("
    sSQL = sSQL & "  VALOR"
    sSQL = sSQL & " ,DATA"
    sSQL = sSQL & ",NOMEDOPRODUTO"
    sSQL = sSQL & ")"
    'CAMPOS DO FORMULARIO-------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "  '" & Trim(Me.txtValor) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.txtData) & "'"
    sSQL = sSQL & ", '" & Trim(Me.NomeProdoto) & "'"
    sSQL = sSQL & ")"
    DB.Execute sSQL
   End Sub

Ok, Muito obrigado!