sql - MS.Access VBA - エラー 3061: パラメータが少なすぎます.Expected 2

Question

私はVBAが初めてです。現在、一時テーブルを使用して編集可能なクロス集計テーブルを作成したいと考えています。編集したデータに基づいて正規化テーブルを更新したいときに問題があります。コードを実行すると、次のエラーが表示されます: エラー 3061: パラメーターが少なすぎます.Expected 2.私のコードを確認するのを手伝ってもらえますか? 前もって感謝します

Public Sub Normalize()
Dim rs As DAO.Recordset
On Error GoTo EH

'delete existing data from temp table
CurrentDb.Execute "DELETE * FROM tblNormalize;", dbFailOnError + dbSeeChanges

'get a recordset of the column headers
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT newvalue FROM Table1;")
Debug.Print
rs.MoveFirst
Do While rs.EOF = False

' "un" crosstab the data from crosstab table into Normalize table
CurrentDb.Execute "INSERT INTO tblNormalize (product, spec, descr,newvalue, Rate )" &  Chr(10) & _
"SELECT product,spec,descr, " & rs.Fields("newvalue") & ", [" & rs.Fields("newvalue") & "]" & Chr(10) & _
"FROM tblCrosstab;", dbFailOnError + dbSeeChanges

Debug.Print rs.Fields("newvalue")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

'update the original normalized dataset

CurrentDb.Execute "UPDATE tblNormalize INNER JOIN Table1 t1 ON (tblNormalize.newvalue = t1.newvalue) " & _
" AND (tblNormalize.product = t1.product) AND (tblNormalize.spec = t1.spec) " & _
" AND (tblNormalize.descr = t1.descr)" & _
" SET Table1.Rate = tblNormalize.Rate;", dbFailOnError + dbSeeChanges


Exit Sub

EH:
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly, "Error"

End Sub