...
        Dim Q_data As New SqlDataAdapter("EXEC API_ART_GetReportDataRowset 'RD_579','<params></params>'", Q_connection)
        Dim Q_data_table As New DataSet("Q_data"), Q_OI As DataTable, selected_Rows as DataRow, Q_cmd As New SqlCommand

        Q_cmd.Connection = Q_connection
        Q_cmd.Connection.Open()

        Q_data_OI.Fill(Q_data_table, "Q_OI")

        Q_OI = Q_data_table.Tables("Q_OI")

        selected_Rows = Q_OI.Select("Field1='" & field1_value & "'") ' <= тут че-то не срастается, так как ожидается одномерный массив на одну строку, а у меня их может быть несколько

Dim selected_Rows() as DataRow