嵌入式select where语句 求助

  Set objApp = CreateObject("Word.Application")
    objApp.Visible = True
    Set objDoc = objApp.Documents.Open(strTemplates, , True)
         
    sqlstr = ("select 功率,进气型式,柴油机外形尺寸长 from 柴油机参数 where 机型 = " & ("select 机型 from 柴油机参数 where 功率 =" & Me.辅机项目登记信息表查询!功率))
           Set rst = CurrentDb.OpenRecordset(sqlstr)
           If Not rst.EOF Then rst.MoveNext
            With objApp.Application.Selection
            .Find.ClearFormatting
            .Find.Replacement.ClearFormatting
                With .Find
                    .Text = "{$进气型式}"
                    .Replacement.Text = Nz(rst("进气型式"), "")
                 End With
                .Find.Execute Replace:=wdReplaceAll 
           rst.MoveNext
            rst.Close
            Set rst = Nothing

           End With

不知错在哪里，请高人指点下