Запрос UPDATE работает только со значением Integer

Private Sub Artik_Dirty(Cancel As Integer)
Dim intOrdNumb As Integer
    Dim intModID As Integer
    Dim sglPrice As Single
    
    
    
    Dim stSQL As String
    
 
    intOrdNumb = Me.Замовлення
    
    intModID = CurrentProject.Connection.Execute("SELECT Перелік_моделей.Артикул " & _
                "FROM Перелік_моделей INNER JOIN (ArtikGr INNER JOIN Перелік_замовлень " & _
                "ON ArtikGr.IDArtikGr = Перелік_замовлень.Артикул) ON Перелік_моделей.Артикул = ArtikGr.ModID " & _
                "WHERE (((Перелік_замовлень.Замовлення)= " & intOrdNumb & "));").Fields(0)
    
    sglPrice = CurrentProject.Connection.Execute("SELECT Max(Price) AS Prc " & _
                "FROM Prices " & _
                "WHERE Prices.ModID= " & intModID & " AND Prices.MaterGrID In  (SELECT OurNamesMat.OurNameID " & _
                "FROM OurNamesMat INNER JOIN ((Material INNER JOIN Mat_OurNames ON " & _
                "Material.IDMater = Mat_OurNames.MatID) INNER JOIN MaterSoldOrd ON " & _
                "Material.IDMater = MaterSoldOrd.MatID) ON OurNamesMat.IDMatNames = Mat_OurNames.NameID " & _
                "WHERE MaterSoldOrd.OrdID= " & intOrdNumb & ");").Fields(0)
    
    stSQL = "UPDATE Перелік_замовлень SET Перелік_замовлень.Ціна = " & sglPrice & " " & _
            "WHERE (((Перелік_замовлень.Замовлення)= " & intOrdNumb & " ));"
    
    CurrentDb.Execute (stSQL)
    Me.Requery
End Sub

stSQL = "UPDATE Перелік_замовлень SET Перелік_замовлень.Ціна = " & Replace(sglPrice, ",", ".") & " " & _
            "WHERE (((Перелік_замовлень.Замовлення)= " & intOrdNumb & " ));"