尝试运行两个查询时,DataReader已打开错误

我有两个查询,一个需要运行到链接服务器,另一个不需要这样

    Dim InvestorLookup As String = "DECLARE @investor varchar(10), @linkedserver varchar(25), @sql varchar(1000) "
    InvestorLookup += "SELECT @investor = '" & investor & "', @linkedserver = '" & db & "', "
    InvestorLookup += "@sql = 'SELECT * FROM OPENQUERY(' +@linkedserver + ', ''SELECT * FROM db WHERE investor = ' + @investor + ' '')' EXEC(@sql)"
    Dim queryInvestorLookup  As SqlCommand = New SqlCommand(InvestorLookup , conn)

    Dim BondNoDR As SqlDataReader = queryInvestorLookup.ExecuteReader()

    Dim PasswordCheck As String = "DECLARE @investor varchar(10), @password varchar(20), @linkedserver varchar(25), @sql varchar(1000) "
    PasswordCheck += "SELECT @investor = '" + investor + "', @password = '" + password + "', @server = '" + db2 + "', "
    PasswordCheck += "@sql = 'SELECT * FROM @server WHERE investor = @investor AND password = ' + @password + ' '' EXEC(@sql)"
    Dim queryPasswordCheck As SqlCommand = New SqlCommand(PasswordCheck, conn)

    Dim PasswordDR As SqlDataReader = queryPasswordCheck.ExecuteReader()

从调试可以看出,两个查询都应该运行,但我得到了错误

There is already an open DataReader associated with this Command which must be closed first.