vba - 一時テーブルの MS Access ルックアップ値の VBA

Question

販売構成データベースを作成しています。フォームを使用してセールスマンに設定プロセスを進めています。特定の製品は、構成のパスを決定します。営業担当者がフォームをクリックすると、一時テーブル (tblConfigTemp) に営業担当者の選択肢が入力されます。このテーブルは、構成の最後またはユーザーが「ホーム」ボタンを押すたびにクリアされます。

一時テーブルで値を検索する方法について、VBA で問題が発生しています。一時テーブルを見て、ProductID を検索し、前のエントリに基づいて追加の ProductID を挿入できるようにしたいと考えています。これまでに持っているものは次のとおりです。

Private Sub btnRTKGO_Click()

    Dim locProductID As Integer

    locProductID = [Tables]![ConfigTemp]![ProductID]

    If locProductID = 1 Then
        sSQL = "INSERT INTO ConfigTemp( [ProductID] ) SELECT  '10' "
    ElseIf locProductID = 2 Then
        sSQL = "INSERT INTO ConfigTemp( [ProductID] ) SELECT  '11' "
    ElseIf locProductID = 3 Then
        sSQL = "INSERT INTO ConfigTemp( [ProductID] ) SELECT  '12' "
    ElseIf locProductID = 4 Then
        sSQL = "INSERT INTO ConfigTemp( [ProductID] ) SELECT  '13' "
    Else
        Call MsgBox("This is a pop-up message", 0, "A Message")
    End If

End Sub

サドルに戻ろうとして、プログラミングを行ってからしばらく経ちました。前もって感謝します。