いつもお世話になっております。

今１つのデータベースから２つのストアドプロシージャで読み込もうとしているのですが、うまくいきません・・・。

「このコマンドに関連付けられている DataReader が既に開かれています。このコマンドを最初に閉じる必要があります。」というエラーです。
でも今自分がやろうとしているものは、１つめのストアドプロシージャ実行して、データを取得しつつ、２つめのストアドプロシージャを実行して、データを取得したいのです。

誰か解決法があればお願いいたします。

データベースへは接続されているものとします。

メインクラス
Dim Reader As SqlClient.SqlDataReader
Dim Command As New SqlClient.SqlCommand

With Command
    .CommandType = CommandType.StoredProcedure
    .CommandText = "Stored1"
    .Parameters.Clear()
End With

Reader=Command.ExecuteReader()

While Reader.Read()
    Call 別クラス.Test()
End While

別クラス
Dim Command As New SqlClient.SqlCommand

With Command
    .CommandType = CommandType.StoredProcedure
    .CommandText = "Stored2"
    .Parameters.Clear()
    .Parameters.AddWithValue("@x", x)
    .Parameters.Add("Return", SqlDbType.Decimal)
    .Parameters("Return").Direction = ParameterDirection.ReturnValue
    .ExecuteNonQuery() ←ここでエラーになります。
End With