Soma em ListBox com criterios

Boa Tarde

Tenho uma Listbox onde nela é lançados Produtos e Serviços da Ordem de Serviços, criei também duas caixa de Texto uma com o Total de Produtos e outra o Total de Serviço.

A dúvida é o seguinte: como eu faço para somar apenas os Produto (txtTotalProdutos) e outra os Serviços(txtTotalServiços.

Obs.: Sendo que na tabela (tblDetOS) tem um campo (Tipo) para identificar se é Produto (P) ou Serviço (S).

Desde já os meus agradecimentos.

esperimente isso

Se a ordem de serviço for um campo número

coloque na propriedade fonte de controle do campo [Total de Produtos]
=DSoma("[preço]";"tblDetOS";"[Ordem de Serviço] like "&[sua ordem de serviço]&" and [tipo] like 'P'")
coloque na propriedade fonte de controle do campo [Total de Serviços]
=DSoma("[preço]";"tblDetOS";"[Ordem de Serviço] like "&[sua ordem de serviço]&" and [tipo] like 'S'")

Se a ordem de serviço for um campo texto

coloque na propriedade fonte de controle do campo [Total de Produtos]
=DSoma("[preço]";"tblDetOS";"[Ordem de Serviço] like '"&[sua ordem de serviço]&"' and [tipo] like 'P'")
coloque na propriedade fonte de controle do campo [Total de Serviços]
=DSoma("[preço]";"tblDetOS";"[Ordem de Serviço] like "&[sua ordem de serviço]&" and [tipo] like 'S'")