bonjour tt le monde

comment se fait il que vb6 me fait une concaténation au lieu d'afficher les chiffres correctement ? la valeur qui doit être 360.000
a la place, il m'affiche 360205 (205 qui est la valeur de x que j'entre dans l'inputbox)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Option Explicit
 
Sub main()
Dim x As Long
x = InputBox("valeur x")
Dim db As Database
Dim record As Recordset
Dim list As ListItem
Dim Montant As Long
Dim s As String
s = "SELECT  [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like " & x & ""
Set db = OpenDatabase(App.Path & "\Base de données\Base.mdb")
Set record = db.OpenRecordset(s, dbOpenDynaset)
record.MoveFirst
While record.EOF = False
    Montant = (record.Fields(0) * record.Fields(1)) + ((record.Fields(0) * record.Fields(1)) * (20 / 100))
    x = x + Montant
    record.MoveNext
Wend
    MsgBox x
record.Close
db.Close
End Sub
merci d'avance