gli passo il recordset:


A_I_r_proc = numeri(oRs("PROC"))


Function numeri(Optional ByVal nome_campo As String)

If IsNull(nome_campo) Then
numeri = "0"
Else
numeri = Int(nome_campo)
End If

End Function


o sbaglio?