rsdiff = Mod_Open.$conn.Exec("SELECT SUM(Versati) AS TotVers FROM giornale WHERE '" & Codicli & "'= CodCli AND '" & Numefatt & "'= NFatt") 

 Print CFloat(rsdiff!TotVers) 'type mismatch: wanted Float, got Null instead'
 Print CInteger(rsdiff!TotVers) 'type mismatch: wanted Integer, got Null instead'
 Print CVariant(rsdiff!TotVers) 'ok'
 Print CString(rsdiff!TotVers) 'ok'

For Each rstotali
    Codicli = rstotali[0]
    Numefatt = rstotali[1]
    TotFatt = rstotali[2]
     rsdiff = Mod_Open.$conn.Exec("SELECT SUM(Versati) AS TotVers FROM giornale WHERE '" & Codicli & "' = CodCli AND '" & Numefatt & "' = NFatt") 
    
    totale1 = totale1 + TotFatt
    If rsdiff!TotVers > "0" Then ' In questo punto si blocca con errore : type mismatch wanted float, got string instead'
    totale2 = totale2 + rsdiff!TotVers
    End If
  Inc it
  Next

 
Dim sPath As String
 Dim intfile As File
  Dim ntesto As String
  Dim vtesto As String
  Dim xtesto As String
  Dim nrighe As Integer = 0
  Dim i As Integer = 0
  Dim j As Integer = 0

  Dialog.Title = "Apri File" ' apro finestra di dialogo
  Dialog.Filter = ["*.txt", ("Text files")] ' seleziono tipo file
  
  GridView1.mode = Select.Multiple
  GridView1.Columns.Count = 5

If Dialog.OpenFile() Then Return 
 
intfile = Open Dialog.Path For Input
Label2.Text = File.BaseName(Dialog.Path)

While Not Eof(intfile)

  Line Input #intfile, ntesto ' ogni riga del file è una stringa che lavoro in seguito'
 
 If nrighe > 4 Then
 
  GridView1.rows.Count = 1 + i
    GridView1[i, 0].Text = Trim$(Left$(ntesto, 17)) ' ricavo dalla stringa i dati che mi sono utili'
    GridView1[i, 1].Text = Trim$(Mid$(ntesto, 18, 8))
    GridView1[i, 2].text = CFloat(Trim$(Mid$(ntesto, 27, 8)))
    GridView1[i, 3].Text = CFloat(Trim$(Mid$(ntesto, 35, 8)))
    GridView1[i, 4].Text = CFloat(Trim$(Mid$(ntesto, 43, 8)))

  Inc i
  Endif
  Inc nrighe
  
 vtesto = Mid$(ntesto, 18, 8)
 
Wend
Close #intfile

Dim valore As String
   valore = InputBox("Codice", "Barcode")
Print valore