Problème avec Macro Excel

Bonjour,

N'étant pas du tout programmeur et à l'origine du fichier dont je vais vous parler, je me heurte à un petit problème sur Excel.

Pour résumer:

J'ai une base access qui me gère des données tel que base des noms, offres commerciales...
Cette base access collecte aussi mes données qui elles sont rentrées via un fichier excel.
Tous les champs fonctionnent à l'exception du champs "gross rate" car j'ai changé mes prix en ajoutant des chiffres après la virgule.

Mon problème, lorsque la macro va chercher mes datas, elle arrondit systématique mes prix... ce qui est un gros problème pour moi.

voici le code qui doit poser problème:

Public Function Lookup_Rate(strFormat As String, strSite As String) As Long
Dim strSQL As String
Dim rsData As Recordset

strSQL = "SELECT [" & strFormat & "], Thematic_Content FROM Offers WHERE Thematic_Content = '" & Replace(strSite, "'", "''") & "'"
Set rsData = New ADODB.Recordset
rsData.Open strSQL, strConnect, adOpenStatic, adLockReadOnly

If Not IsNull(rsData.Fields(0)) And Not IsNull(rsData.Fields(1)) Then
Lookup_Rate = rsData.Fields(0)
ElseIf IsNull(rsData.Fields(0)) And Not IsNull(rsData.Fields(1)) Then
MsgBox "Format not available on this thematic content!"
Else
Exit Function
End If
End Function

------------------------------------

Pouvez vous m'aider ? honnêtement je ne comprends rien a ce qui est écrit ci dessus.

merci d'avance.