Problem With Connections, Commands, And DataReaders

Thanks for taking a look at this.  Could you tell me where I've gone wrong?

I'm migrating data (2 fields) from one table to another via a loop and two SProcs, InfoGet & InfoSet.   objCmdGet is the SqlCommand object for the Get.  objCmdSet is the SqlCommand object for the Set.  drGet and drSet are the data readers.

My first pass succeeds.  On the second pass, an exception is thrown: "Procedure or function InfoSet has too many arguments specified."

Maybe drSet isn't closing, even though I explicitly do so at the bottom of the loop?1 ' Earlier defined: 2 Connection and 2 Command objects.
2 Dim drGet As SqlDataReader
3 Dim drSet As SqlDataReader
4
5 Try
6 objConnGet.Open()
7 drGet = objCmd1.ExecuteReader(CommandBehavior.CloseConnection)
8
9 While (drGet.Read())
10 _title = dr("usertitle")
11 _phone = dr("phoneoffice")
12
13 objCmdSet.Parameters.Add("@usertitle", SqlDbType.NVarChar, 50).Value = _title
14 objCmdSet.Parameters.Add("@userphone", SqlDbType.NVarChar, 50).Value = _phone
15
16 objConnSet.Open()
17 drSet = objCmdSet.ExecuteReader(CommandBehavior.CloseConnection)
18 drSet.Close()
19 End While
20 Catch eX As Exception
21
22 Finally
23 drGet.Close()
24 End Try