Access 2019 и параметрические запросы

Dim rstPrice As ADODB.Recordset,  cnn As ADODB.Connection, cmdCommand As New ADODB.Command, prmParam As ADODB.Parameter, rstZay As ADODB.Recordset, 
 
strsql = "..."
With rstClient
 .CursorLocation = adUseServer
.Open strsql, cnn, adOpenKeyset, adLockReadOnly
End With
Set cnn = CurrentProject.Connection
strsql = "Parameters ID1 long, ID2 long; " & _
"SELECT * " & _
"FROM tblPrice " & _
"WHERE (((tip)=" & tipPrice & ") AND ((ida)=[ID1]) AND ((idt)=[ID2]));"
 With cmdCommand
      Set .ActiveConnection = cnn
      .CommandText = strsql
      .CommandType = adCmdText
      Set prmParam = .CreateParameter("ID1", adNumeric, adParamInput, , rstClient.Fields("ida"))
      Set prmParam = .CreateParameter("ID2", adNumeric, adParamInput, , 0)
      .Parameters.Append prmParam
End With
' ...
strsql = "..."
Set rstZay = New ADODB.Recordset
With rstZay
.Open strsql, cnn, adOpenKeyset, adLockReadOnly
   Do Until .EOF
' меняем параметр и снова в бой!
      With cmdCommand
         .Parameters("ID2") = rstZay.Fields("idTov")
         Set rstPrice = .Execute
      End With
  If rstPrice.EOF Then
            rstPrice2.AddNew
'...
rstPrice2.update
    Else
         rstPrice2.Find "[ID]=" & rstPrice.Fields("ID"), , , 1
'...
end if
' ...
   .MoveNext
   Loop
End With