afrund op til hele tal

jeg har denne kode:Public Function p()
    Dim SQL As String
    Dim Antal As Long
    Dim cn As ADODB.Connection
    Set cn = CurrentProject.Connection
    SQL = "INSERT INTO tabel4 (levnavn, Price, ProductNumber, Description, StockAmount, Weight, ProductName, Manufacturer) SELECT t1.levnavn, t1.Price, t1.ProductNumber, t1.Description, t1.StockAmount, t1.Weight , t1.ProductName, t1.Manufacturer "
    SQL = SQL & "FROM (SELECT levnavn, Price, ProductNumber, Description, StockAmount, Weight, ProductName, Manufacturer FROM tabel1 "
    SQL = SQL & "UNION ALL SELECT levnavn, Price, ProductNumber, Description, StockAmount, Weight, ProductName, Manufacturer FROM tabel2) "
    SQL = SQL & "as t1, "
    SQL = SQL & "(SELECT min(Price) as mPrice, ProductNumber "
    SQL = SQL & "FROM (SELECT Price, ProductNumber FROM tabel1 "
    SQL = SQL & "UNION ALL SELECT Price, ProductNumber FROM tabel2 "
    SQL = SQL & ") GROUP BY ProductNumber) as t2 "
    SQL = SQL & "WHERE t1.Price = t2.mPrice AND t1.ProductNumber = t2.ProductNumber ORDER BY t1.levnavn;"

    cn.Execute SQL, Antal
    MsgBox Antal & " poster blev tilføjet!", vbExclamation, "Done!"
End Function


den sætter en Price ind i tabel4 den vil jeg gerne have altid bliver et helt tal (round) f.eks 599 og ikke 599.256

hjælp og tak