I have a access data base that has a field in it called Premium i would like to add up all of the numbers for each client in the Data Base in the Premium Field.

How can i do this.

I would like it to output to a textbox.

this is what I got Now but it don't work

set db = OpenDatabase("C:\Program Files\Lsi\Tracker\Data\data1.dll")
set rs = db.OpenRecordset("SELECT * FROM bond1 WHERE Premium<>'" & txt1.Text & "';")

rs.MoveFirst
'Do While Not rs.EOF
A = rs!premium
B = txt2.Text
C = txt3.Text

C = A
txt2.Text = txt2.Text + (A + B)

rs.MoveNext
'Loop





Thanks in Advance
Donny S.