Thanks for your reply. It works now after updating the SQL statement. I found more syntax errors in it. But before the modification I was getting an error that that the object is not supported in the red code below:
Public Sub QuoteValue()
Dim dbs As DAO.Database
Dim SumSQLtext As String
Dim QuoteRef As String
Dim rst As DAO.Recordset
QuoteRef = Forms("enter items").Controls("text75")
SumSQLtext = "(SELECT Sum(PartsList.CustomerPrice)AS Expr1 FROM PartsList INNER JOIN Items_Quote ON PartsList.ItemNumber = Items_Quote.ItemNumber WHERE ((Items_Quote.QuoteNumber)= '" & QuoteRef & "'))"