Чтобы получить параметры с сервера From и передать на сервер To, вам нужно создать отдельную коллекцию paramsCollection
Dim paramsF as StoredProcedureParameterCollection
spF - это загруженный sp of Fromdb.
paramsF = spF.Parameters 'ничего нового здесь просто скопируйте прямо!
По мере создания слоев в SPT с базой данных, сценарием и параметрами:
For Each p As StoredProcedureParameter In paramsF
Dim pp As StoredProcedureParameter
pp = New StoredProcedureParameter(spT, p.Name, p.DataType)
spT.Parameters.Add(pp)
Next