I have a compile error that I cannot solve

Below is some code that I am using on an access form for an event.  When I try to use this there is a compile error which states that there is a type mismatch.

Private Sub Command343_Click()

    Dim dbsProduction As DAO.Database
    Dim rstquotesetup As DAO.Recordset
    Dim rstFrom As Recordset
    Dim rstTo As Recordset
    Dim fld As Field
    Dim tempnumber As Integer
    Dim QuoteID As Integer
   


  Set dbsProduction = CurrentDb
   Set rstquotesetup = dbsProduction.OpenRecordset("tblQuoteDetails")
    MsgBox (Me.TemplateID.Column(0))
   
    tempnumber = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!TemplateID
    MsgBox (tempnumber)
       
   rstquotesetup.AddNew
   rstquotesetup!UnitDescription = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!templatenumber
   rstquotesetup!MarkUp = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!MarkUp
   rstquotesetup!StructuralSteelDropPercent = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!DropPercentageStructural
   rstquotesetup!PlateSteelDropPercent = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!DropPercentagePlate
   rstquotesetup.Update
   
         
    QuoteID = DMax("QuoteID", "tblQuoteDetails")
    MsgBox QuoteID

------- THE CODE BEFORE THIS DOES NOT HAVE AN ERROR -----------
   
    Set rstFrom = ("Select * From tblTemplateLabor Where TemplateID = " & tempnumber)
   
    If rstFrom.EOF Then
        MsgBox "No match in From Table"
    Else
    Set rstTo = ("Select DesignHours-User, DesignRate, DesignNotes From tblQuoteDetails Where QuoteID = " & QuoteID)
    If rstTo.EOF Then
        rstTo.AddNew
        For Each fld In rstTo.Fields
            rstTo(fld.Name) = rstFrom(fld.Name)
        Next
        rstTo.Update
    Else
        MsgBox "Already exists"
    End If
   
    End If



End Sub