Italian problema con campo real

[insoft]

Buongiorno a tutti, ho il classico problema da principiante quale sono.

Ho un campo di visualizzazione definito così dal designer

Dim txtPrezzo As MaskedEditText

Leggo col codice che segue una tabella listini che contiene il nome del listino, il codice articolo e il prezzo in un campo definito REAL.

dbCursor_tab=SQL_TAB.ExecQuery ("SELECT Prezzo FROM Listini_01 WHERE Listino = 'BANCO' AND CodiceArticolo = '" & Articolo & "'")

If dbCursor_tab.RowCount = 1 Then
txtPrezzo.text=dbCursor_tab.GetDouble ("Prezzo")
Else
txtPrezzo.Text = 0
End If

Ebbene questa istruzione
txtPrezzo.text=dbCursor_tab.GetDouble ("Prezzo")
continua a darmi errore (il prezzo esiste non è null ma è 18.35)

So che sto usando GetDouble ma non mi risulta ci sia un GetReal e il campo prezzo ha sempre dei decimali.

Grazie a tutti e un grazie particolare a chi mi aiuterà a risolvere il problema.
Massimo

 

[klaus]

Aggiungere dbCursor_tab.Position = 0.

dbCursor_tab.Position = 0
If dbCursor_tab.RowCount = 1 Then
    txtPrezzo.text=dbCursor_tab.GetDouble ("Prezzo")
Else
    txtPrezzo.Text = 0
End If

 

[insoft]

Grazie Klaus