جمع یا تفرق اعداداعشاری در اکسس

[moghadam1372]

با سلام

چگونه ویا با چه کدی متوان اعداد یک فیلد که بصورت اعشاری است فراخوانی کرد و با هم جمع ویا تفرق کرده و در یک تکست بریزیم ؟؟؟؟؟

البته من از این کد برای جمع استفاده می کنم ولی رند می کند

Adodc6.Recordset.MoveFirst
vkol = 0
While Adodc6.Recordset.EOF <> True
pcs = Adodc6.Recordset.Fields("pcs")
vkol = vkol + pcs
Adodc6.Recordset.MoveNext
Wend
Text6 = vkol

[m.4.r.m]

Private Sub Form_Load()
Dim a As Double, b As Double, c As Double
a = 3.2
b = 3.4
c = a + b
MsgBox c
End Sub

[vbhamed]

سلام
ظاهرا با تعريف vkol از نوع Single يا Double بايد مشكلتون حل بشه
Dim vkol As Single