SOMANDO COLUNAS NO LISTBOX

USUARIO.EXCLUIDOS 02/04/2005 17:06:41
#76364

Private Sub Command1_Click()
Dim SOMA As Double
For I = 0 To List1.ListCount - 1
SOMA = CCur(SOMA) + CCur(List1.List(I))
Next I
MsgBox "A Soma é: " & SOMA
End Sub

USUARIO.EXCLUIDOS 02/04/2005 18:06:34
#76369

por favor o clayton me ajudou em muito mas preciso muito com urgencia tbm de um codigo para salvar o conteudo de um listbox para uma tabela

CAJU 03/04/2005 10:10:49
#76397 Resposta escolhida

for i=0 to list1.listcount -1
data1.recordset.addnew
data1.recordset.fields("coluna") = list1.list(i)
data1.recordset.update
next i