problems creating dataset

[stx]

Hi

This is my code (essential pieces):

dim rstop10 as adodb.recordset,netto as double
Set rstop10 = New ADODB.Recordset
With rstop10
   .Fields.Append "netto", adDecimal, , adFldUpdatable
   .CursorType = adOpenKeyset
   .LockType = adLockOptimistic
   .Open
End With

netto = 13.25
rstop10.Addnew array("netto"),array(netto)
...

This piece of code almost works fine but when i check the value in my dataset i get '13' instead of '13.25'.

Does anyone know why i'm losing my digits after the comma?

Defining the dataset column 'netto' as a string-column is not an option because later i my code i need to sort the dataset on my column 'netto'.

rstop10.sort = "netto desc"

thnx

 

[CCLINT]

Use adSingle or adDouble instead of adDecimal.

 

[JohnEfford]

Change

dim Netto as double

to

Dim Netto as Currency

Regards

 

[CCLINT]

JohnEfford: How do you know that "netto" should be currency? (very well it is, but cannot make that out above)

Anyways, a Single may be better in any case, and the main problem is the field defination...